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[Hazte  socio  del  Club  de  Soft  de  España? 

Tendrás  multitud  de  ventajas,. , 

—  Recibirás  puntual  información  de  las  novedades 
de  soft  que  haya  en  el  mercado. 

Te  enviaremos  un  catálogo  bimensual  que  incluye 
más  de  200  programas  para  Commodore64  y  Spec- 
trum. 

—  Podrás  adquirir  programás  con  un  30%  de  descuen¬ 
to,  por  ser  miembro  det  CLUB  DE  SOFT  DE  ESPA¬ 
ÑA, 

—  Obtendrás  descuentos  de  hasta  un  20%  sobre 
hardware. 


¿COMO  PUEDES  HACERTE  SOCIO  DEL  CLUB  DE 
SOFT  DE  ESPAÑA? 

—  Solo  tendrás  que  abonar  1,000  Ptas,  como  cuota  UNICA  de  ins¬ 
cripción. 

—  Como  regalo  de  bienvenida  a  nuestro  CLUB  de  SOFT  de  ESPAÑA 
podrás  elegir  entre  dos  programas: 

AJEDREZ  STARSHIP  ENTERPRISE 

SOLO  FLIGHT  SLIPPERY  SID 

para  CBM-64  para  SFRECTRUM 

Te  enviaremos  el  programa  elegido  completamente  GRATIS,  junto 
con  la  confirmación  de  tu  pertenencia  al  CLUB  de  SOFT  de  ESPAÑA 
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DIFUSION  POR  AMISTAD 

Habla  a  tus  amigos  de  las  enormes  ventajas  que  supone 
pertenecer  al  CLUB  DE  SOFT  DE  ESPAÑA,  Si  junto  con 
tu  inscripción  se  inscriben  dos  amigos  tuyos  por  tu 
recomendación,  te  regalamos  un  programa  de  juegos. 


CUPON  DE  INSCRIPCION 

AL  CLUB  DE  SOFT  DE  ESPAÑA 

Eraso,  12  -  Tel.  24610  94  -  2802B-MADHID 

i 

1 

1  1 

Nombra 

1  Dirección  1 

,  Ciudad 

Tel 

Deseo  pertenecer  el  CLUB  DE  SOFT  DE  ESPAÑA  Ruego  me  envíen  como  régelo  de 
bienvenida  al  CLUB  el  programa _ 


Firma 


El  CLUB  O E  SOFT  DE  ESPAÑA  le  enviará  el  programa  socolada  junto  con  un  reem¬ 
bolso  de  1.000  Pte&.  más  gastos  de  envió,  como  cuota  de  inscripción  af  Club 

DIFUSION  POR  AMISTAD 


NOMBRE  de  un  amigo _ _ 

Dirección _ _ 


Programa  cíe  regalo  de  bienvenida  - _ 

Firma 

DIFUSION  POR  AMISTAD 

NOMBRE  de  un  amigo  _  _ 

D  tracción _ _ _ 

Programa  de  regalo  de  bienvenida _ 


Firma 
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Commodore  World  es  miembro  de  CW  OmmumcaiHiris/lne.,  d  grupo 
editorial  más  grande  y  de  mayor  prestigio  en  d  mundo  en  \o  que  se  refiere  al 
ámbito  informático.  Dicho  grupo  nene  a  su  cargo  la  edición  de  52  publica¬ 
ciones  relacionadas  con  b&  ordenadores  en  19  países.  El  grupo  editorial  está 
integrado  por: 

ALEMANIA:  C  ompuierwoche.  Micro  Compute rwclL  PC  W'elt,  Software 
María.  CW  Edilion/Scminar.  Computer  Business.  Run  (Commodore). 
ARABIA  SALI)]:  Saudi  Computcrwortd.  ARGENTINA:  Computerworld/ Argentina  AUSTRALIA: 
AustraLasian  Coinputerwortd,  Micro  Computer  Magazmc,  PC  World  RRASil ;  Data Ncw*í,  Micro- 
Mundo  DINAMARCA:  Cúmputerworld/Danmark.  Micro  Verdeo.  ESPAÑA:  Ciimputcrwurlil/K- 
paña  MitroSi lernas,  Commodore  World.  ESTADOS  UNIDOS:  Compute rvvorld,  I  Kit  CóCo.  InOder. 
1  ufo  World,  MicrocoiiTipüting,  PC  Wurki,  8ÍK  Micro,  Mac  World  Micro  Mmkei  Word,  PC  Jr  World 
Run  í Commodore).  FINLANDIA:  Mitro.  FRANCIA:  Le  Monde  Informatique  HOLANDA:  Compu- 
terworld  Benelux,  Micro/Info.  ITALIA:  Compute rw orí d  Italia  JAPON:  ComputerwLirid  lapan.  Pereo 
Comwortd.  PC  World  MEXICO:  Compute rworld/Méxjco,  Compu mundo.  NORUEGA:  Computer 
world  Norgc,  Mtkro  Data.  RUNO  UNIDO  DE  GRAN  BRETAÑA:  Computer  Management  Computer 
Business  Europe.  REPUBLICA  POPULAR  DE  CHINA:  China  Compu terworld.  SÍNGAPl  R:  Uian 
Compu terworld,  SUECIA:  ComputerSweden.  MikroDatorn.  Min  Hemadator. 
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DE  TODO  UN  POCO 


NUMEROS  ATRASADOS 

Primero  empezaremos  con  las 
cosas  prácticas  y  luego  pasaremos 
a  asuntos  más  frívolos  (pero  no 
por  eso  menos  interesantes).  Como 
todas  las  cosas  buenas  de  la  vida 
tienen  que  terminar,  así  nos  ocu¬ 
rrió  con  el  número  1  de  “Commo- 
dorc  World",  y  nos  está  ocu¬ 
rriendo  con  los  otros  ejemplares. 
Todavía  disponemos  de  los  prime¬ 
ros  números  pero  algunos  están  en 
mal  estado  y  aunque  están  utiliza- 
bles  tampoco  se  encuentran  en  la 
flor  de  la  vida.  Si  queréis  estos 
ejemplares  nosotros  seguiremos 
enviando  pero  el  que  avisa  no  es 
traidor. 

Por  otro  lado,  ei  número  I  está 
definitivamente  agolado  pero  nos 
gustaría  dar  algún  tipo  de  servicio 
a  la  gente  que  lo  sigue  pidiendo. 
De  momento  no  hemos  decidido  si 
este  servicio  consistirá  en  unas 
fotocopias  o  cintas  pero  el  boletín 
correspondiente  aparecerá  en  la 
revista  a  su  debido  tiempo.  Mien¬ 
tras  tanto  a  esperar  toca. 


SIMO  Y  CAMISETAS 
COMMODORE  WORLD” 

Nos  ha  alegrado  mucho  estar  en 
el  SIMO  y  saludar  a  los  muchos 
suscriptores  y  lectores  que  nos  han 
venido  a  ver.  A  muchos  de  ellos  ya 
ios  conocíamos  de  tanto  hablar 
por  teléfono  y  escribirnos  y  la  ver¬ 
dad  es  que  esta  feria  nos  ha  brin¬ 
dado  la  ocasión  de  entrar  en  con¬ 
tacto  directamente  con  los  miem¬ 
bros  de  nuestra  gran  familia 
“commodoriana". 

Los  que  habéis  pasado  por  el 
stand  os  habréis  fijado  que  algu¬ 
nos  de  nosotros  íbamos  vestidos  a 
la  última  moda,  con  una  prenda 
exclusivísima  que  nos  quedaba  la 
mar  de  bien.  Estamos  hablando  de 
nuestra  camiseta  de  “t  ommodore 


World",  Nos  hicimos  el  modelito 
con  el  fin  de  poder  identificarnos 
mutuamente  entre  (oda  la  masa  de 
gente  que  acude  al  SIMO,  y  nos 
hemos  quedado  gratísimamente 
sorprendidos  de  la  cantidad  de 
gente  que  nos  ha  preguntado  si  se 
podía  comprar  una.  Pues  bien,  la 
verdad  es  que  no  lo  habíamos  pen¬ 
sado,  pero  ya  que  realmente  os 
apetece  la  idea,  en  el  próximo 
número  os  daremos  los  detalles  ya 
que  en  este  no  nos  da  tiempo. 


MERCADILLO 

Solamente  recordaros  que  os 
atengáis  a  las  regulaciones  que  se 
publicaron  en  el  número  noviem¬ 
bre  (el  9),  en  pág,  4.  Esto  evitará 
que  tengamos  que  rechazar  anuncios. 


CONCURSOS  -  CONCURSOS 

ESCOLAR 

Recordamos  a  lodos  que  el 
último  día  de  admisión  de  trabajos 
es  el  próximo  3í  de  diciembre ¡ 
Leeros  bien  las  bases. 

EL  DE  SIEMPRE 
—COLABORADORES- 
PROGRAMAS  Y  MAGIA 

El  sorteo  de  todas  las  colabora¬ 
ciones  publicadas  en  ios  números 
de  julio  a  diciembre  (ambos 
incluidos)  será,  como  siempre, 
público  y  tendrá  lugar  el  próximo 
día  14  de  diciembre,  viernes,  a  las 
17  horas  en  nuestra  redacción. 
Barquillo,  21,  estáis  invitados. 

A  POR  LOS  8.000,** 

Y  A  VIAJAR 

Falta  bastante  menos,  último 
número  de  suscriplor  hoy,  día  19 
de  noviembre,  es  el  6.H2. 
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Convocatoria  ¿«I  Primer  Concurso 
Nacional  Escolar  de  Programación 
patrocinado  por  Commodore  World 
y  Microelectrónica  y  Control 


BASES 

Podrán  participar  en  el  mismo  iodos  aquellos  niños  y  jóve¬ 
nes  que  estén  en  edad  escolar  p  re-uníversitaria  o 
equivalente. 

2V  Habrá  tres  grupos  definidos: 

a)  L.G.B. 
h)  B,UP. 
c)  F.P. 

3U  Los  trabajos  pueden  ser  presentados  por  equipos  o  por 
individuales, 

4V'  Los  trabajos  presentados  por  equipos  deben  especificar: 

a)  Nombre  del  equipo. 

b)  Centro  al  que  representan. 

c)  Nivel  de  enseñanza  que  cursan  (E.G.B.-BU.P-FP.). 

d)  Nombre  del  profesor,  monitor  o  coordinador. 

5*  Los  trabajos  presentados  por  individuales  deben  ir  acom¬ 
pañados  de: 

a)  Nombre  del  autor, 

b)  Edad  y  curso  que  estudia, 

c)  ([)  Si  concursa  representando  a  un  centro:  nombre  del 
mismo  y  nombre  del  profesor  responsable. 

(¡i)  Si  concursa  por  si  mismo:  nombre  del  colegio  donde 
estudia  y  firma  del  director  o  profesor  responsable  ava¬ 
lando  que  en  tanto  cuanto  conoce  al  concursante  el  trabajo 
que  presenta  es  suyo  propio. 


6"  El  tema  dd  concurso  es  Ja  realización  de  un  programa  edu¬ 
cativo  sobre  materia  libre  a  elegir  por  los  concursantes.  La 
extensión  del  programa  es  también  de  libre  elección, 

7o  Cada  centro  puede  presentar  el  número  de  equipos  o  con¬ 
cursantes  individuales  que  desee,  siempre  que  cada  trabajo 
sea  enviado  por  separado. 

Los  trabajos  deben  incluir: 

a)  Nombre  el  programa, 

b)  Nombre  del  computador  para  el  que  está  confeccio¬ 
nado  y  periféricos  adicionales  que  se  necesitan  (si  fuese  el 
caso). 

c)  Objetivo  del  programa. 

d)  Explicación  detallada  dd  programa  (a  máquina  o 
impresora). 

e}  Listado  completo  a  impresora. 

fj  Grabación  en  cinta  o  disco, 

9a  Todos  los  trabajos  presentados  deben  ser  originales  e 
inéditos, 

ÍÜfl  Los  centros  que  pueden  presentar  equipos  o  concursantes 
individuales  son: 

a)  Todo  colegio,  escuda  o  instituto,  público  o  privado 
que  imparta  las  enseñanzas  de  E,G>B,.  B.U.P,  o  F.P. 

b)  Centros  de  Informática  que  tengan  grupos  de  ense¬ 
ñanza  específica  para  niños  y  jóvenes  menores  de  Mí  años, 

e)  Clubs  de  informática  que  mantengan  actividades  espe¬ 
cíficas  para  niños  y  jóvenes  menores  de  18  años. 

11*  Los  trabajos  deben  ser  enviados  antes  dd  31  de  diciembre 
de  1984  a  SIMSA,  c/  Barquillo,  21*3"  Izqda.  28D04  Madrid. 

¡2S  El  fallo  del  concurso  se  dará  a  conocer  en  Ja  primera 
semana  de  marzo  de  1985  en  cííugar.  fecha  y  hora  que  se 
indicarán 

13°  Los  trabajos  premiados  quedarán  propiedad  de  los 
patrocinadores. 

RELACION  DE  PREMIOS  EN  PAG.  50 


CONCURSOS  PERMANENTES 


Colaboraciones  de  Programas  y  Magia 

La  verdad  sea  dicha:  os  estáis  portando;  las  colaboraciones  que  nos  están 
llegando  son  numerosas  y  de  muy  buena  calidad.  Por  lo  tanto,  vamos  a 
aclarar  las  condiciones  de  nuestros  concursos  permanentes. 

1)  Los  sorteos  se  realizarán  en  los  meses  de  junio  >  diciembre, 

2)  Se  sortearán  siempre  seis  premios,  tres  de  15.000,  10.000  y  5.000 
pesetas  en  metálico  de  "Commodore  World"'  y  tres  del  mismo  valor  en 
material  de  Microelectrónica  y  Control,  entre  todas  las  colaboraciones 
publicadas. 

3)  Se  sortearán  siempre  seis  premios,  tres  de  3.000,  2.000  y  1 ,000  pesetas 
en  metálico  de  "Commodore  World""  y  tres  del  mismo  valor  en  material  de 
Microelectrónica  y  Control,  entre  todas  las  contribuciones  publicadas  en  la 
sección  de  "Magia". 

4)  Adicional  mente,  se  sortearán  diversos  premios  de  cintas,  juegos,  etc. 
donados  por  firmas  y  distribuciones*  entre  todas  las  colaboraciones. 

5)  Los  autores  de  las  colaboraciones  vendidas  dentro  de  nuestro  "Servicio 
de  Cimas"  percibirán  el  20%  dd  precio  de  la  cinta. 

6)  Todas  las  colaboraciones  deben  venir  escritas  a  máquina  y  los  progra¬ 
mas  grabados  en  cinta  (si  es  posible),  o  con  el  listado  completo  en  Impresora. 
Nuestros  lectores  más  jóvenes  pueden  escribir  a  mano  pero  con  letra  muy 
clara. 

7)  Quedan  automáticamente  descalificadas  tanto  del  sorteo  como  del 


"Servicio  de  Cintas"'  las  colaboraciones  que  hayan  sido  enviadas  a  otras 
revistas. 

8)  Las  colaboraciones  se  enviarán  a  “Commodore  World"',  C/B  arquillo, 
21*3  kda.  281)04  Madrid. 


MAS  VIAJES  Y  OTRO  REGALO  DE  “IMPRESION”... 
A  POR  EL  SUSCRIPTOR  8.000 

Es  evidente  que  a  nuestros  sucrip tures  Les  gusta  viajar.  De  momento  loan 
Pujiuta  visitará  los  Estados  Unidos  en  julio  y  Juan  Mejuto  Iglesias  irá  a 
Inglaterra  en  el  otoño.  Queríamos  sortear  algo  un  poco  especial  ENTRE 
TODOS  LOS  SUCRIPTORES  cuando  lleguemos  al  suscríptor  número 
8.Q0Ü*  y  hemos  optado  por  dos  premios,  uno  concedido  por  Microelectró¬ 
nica  y  Control  y  otro  concedido  por  “Commodore  World". 

MÉC  regalará  una  impresora  MPS  801  |o  similar >,  y  nosotros  hemos 
escogido  un  surtido  de  viajes  muy  "chulos"  para  dos  personas  para  que  el 
ganador  elija  el  que  más  le  apetezca.  La  selección  que  hemos  hecho  es  la 
siguiente: 

Viajes  de  4  días  en  hoteles  de  primera  cíase  a  uno  de  estos  lugares: 

París,  Lisboa,  Atenas,  Amsterdam.  Niza,  Yiena. 

O  viajes  de  una  semana  en  hoteles  de  4/5  estrellas: 

Canarias  o  Mallorca. 


TIRADA  D€  COMMODOR€  UJORLD 
Certificación  de  28.000  ejemplares 

Según  certificado  firmado  por  lo  auditorio  internacional  D€LOITTC  HflSKfNS  SCLLS,  S.  fl. 

el  5  de  marzo  de  1984, 

la  tirada  de  Commodore  UJorid  es  de  28.000  ejemplares, 

€stc  certificado  se  encuentra  en  las  oficinas  de  S-LM.S.FL  para  comprobación 
de  cualquier  persona  o  entidad  que  lo  desee. 
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Convocatorio  del  primer  concurso  nacional 
de  programación  en  80  columnas  de 
Cofnmodore-64  y  40-80  columnas  del 
VK-20  patrocinado  por  Ferre-Moret,  S.A* 
Con  la  colaboración  de  Commedo re- 
World,  más  de  500.000  ptas.  en  premios 


BASES 

Podrán  participar  iodos  los  usuarios  de  COMMODORE- 
64  y  VIC-2Q  que  hayan  obtenido  La  tarjeta  de  80  columnas 
de  FERRE-MORET,  S.A. 

2Ú  Cada  concursante  podrá  presentar,  un  programa  realizado 
por  él  o  por  un  equipo  del  que  deberán  indicar  un  titular. 

3U  Se  enviará  la  explicación  detallada  del  programa  redactado 
en  español,  escrito  a  máquina.  El  programa  se  enviará  en 
cassette  o  disco,  adjuntando  su  correspondiente  listado  del 
programa. 

4*  Se  enviarán  por  correo  certificado  a  la  siguiente  dirección, 
FERRE-MORET,  S.A,  calle  Buenos  Aires  3üP  2°-3.a  de 
BARCELONA-36,  Antes  dd  31  de  enero  de  1985, 

5V  Los  programas  no  premiados  podrán  ser  solicitados  por  sus 
propietarios  en  d  plazo  de  treinta  dias  después  del  fallo. 

6y  El  resultado  se  comunicará,  directamente  a  los  ganadores 
y  se  publicará  en  la  revista  COMMODORE  WORL  D. 


7g  Los  premios  se  entregarán  durante  la  primera  semana  de 
marzo  de  1985  coincidiendo  con  la  entrega  de  premios  del 
PRIMER  CONCURSO  NACIONAL  ESCOLAR  DE 
PROGRAMACION. 

8V  Los  programas  premiados  quedarán  en  propiedad  de 
FERRE-MORET,  S.A 

9Ü  Los  programas  que  no  obtengan  premio,  recibirán,  en  caso 
que  así  lo  considere  FERRE-MORET,  S.A.*  ofertas  de 
compra  de  sus  programas. 

1ÜÜ  Los  premios  ascenderán  a  500*000  Ptas.  repartidos  de  la 
siguiente  manera: 

lü  250.00U  Pías. 

2tí  1  5ÍMKXJ  Ptas, 

3U  1 00*000  Ptas. 

H Q  Iodos  los  participantes*  que  no  hayan  recibido  premio  u 
oferta  de  compra,  podran  participar  en  el  concurso  de  cola¬ 
boradores  que  habitual  mente  COMMODORE  WORLD 
viene  realizando  con  un  premio  extra  de  FERRE-MORET, 
S.A.,  de  50.000  Ptas. 

12v  Los  trabajos  deberán  de  ser  inéditos  y  desarrollar  temas  de 
utilidad*  programas  profesionales,  científicos*  educativos, 
etcétera. 

FERRE-MORET  *  S.A.  se  reserva  el  derecho  de  modificar  las 
bases  de  este  certamen*  dejarlo  desierto  o  suprimirlo,  por  causa 
de  fuerza  mayor.  En  este  caso  la  empresa  se  compromete  a 
comunicarlo  a  través  de  COMMODORE  WORLD 


Clave  para  interpretar  los  listados 


Todos  los  listados  que  se  publican  en 
esta  Revista  han  sido  ejecutados  en  el 
modelo  correspondiente  de  la  gama 
de  ordenadores  COMMODORE.  Para  faci¬ 
litar  la  edición  de  los  mismos  en  la  Revista 
y  para  mejorar  su  legibilidad  por  parte  del 
usuario,  se  les  ha  sometido  a  ciertas  modifi¬ 
caciones  mediante  un  programa  escrito 
especialmente  para  ello.  Para  los  progra¬ 
mas  destinados  a  los  ordenadores  V1C-20  y 
COMMODORE  64*  en  los  que  se  usan  fre¬ 
cuentemente  las  posibilidades  gráficas  dd 
teclado,  se  han  sustituido  los  símbolos  grá¬ 
ficos  que  aparecen  normalmente  en  los  lis¬ 
tados  por  una  serie  de  letras  entre  corchetes 
[]  que  indican  la  secuencia  de  teclas  que  se 
deben  pulsar  para  obtener  el  carácter 
deseado.  A  continuación  se  da  una  tabla 


para  aclarar  la  interpretación  de  las  indica¬ 
ciones  entre  corchetes: 

[CRSRD]  -  Tecla  cursor  hacia  abajo  (sin 
SHIFT) 

[CRSRUj  -  Tecla  cursor  hacia  arriba  con 
SHIFT) 

[CRSRR]  —  Teda  cursor  a  la  derecha  (sin 
SHIFT) 

[CRSRLJ  —  Tecla  cursor  a  la  izquierda  (con 
SHIFT) 

[HOME]  “Tecla  CLR/HOME  (sin  SHIFT) 
[CLRJ-  Leda  CLR/HOME  (con  SHIFT) 

Las  indicaciones  [BLKJ  a  [Y EL)  corres¬ 
ponden  a  la  pulsación  de  las  teclas  de  1  a  8 
junto  a  la  tecla  CTRL.  Lo  mismo  sucede 


con  [  RVSÜNj  y  IRVSOFJ  respecto  a  la  teda 
CTRL  y  las  tedas  9  y  10. 

El  resto  de  las  indicaciones  constan  de  la 
parte  COMM  o  SHIF  seguidas  de  una 
letra*  número  o  símbolo  —por  ejemplo 
LCOMM+]  o  [SHIFAJ— ,  Esto  indica  que 
para  obtener  d  gráfico  necesario  en  el  pro¬ 
grama  deben  pulsarse  simultáneamente  las 
tedas  COMMODORE  (la  que  lleva  el  logo¬ 
tipo)  o  una  de  SHIFT  y  fa  teda  indicada 
por  la  letra*  d  número  o  el  símbolo*  en  e! 
ejemplo  anterior:  COMMODORE  y  f  o 
SHIFT  y  A*  respectivamente. 

En  los  signos  gráficos  además  se  cuenta 
el  número  de  veces  que  aparece.  Por  ejem¬ 
plo*  [7  CRSRRj  equivale  a  7  pulsaciones  de 
la  tecla  cursor  a  la  derecha  y  [3  SPCj  tres 
pulsaciones  de  la  barra  espadadora.  ■ 
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-OESTJOW  COMERCIAL  J 

Factura  jw»  cliente 

-gestión  comercÍal** 

F»clurfl  tftrfecta 

GESTION  COMEna^L  MJ 

Fftctura  por  altarén 
^  ^  3.000  pta. 
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control  cuentas 

CORRIENTES 
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£  IMPRESORA  DE  EXTRACTOS 
CUENTA 

^WSTORfCO  MOVIMIENTOS 


íNOVEDADf 
DESPIECE  V 
MANIPULACION 
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"fCEPCtON  QUíaiii 
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I  raducidu  por  Valerle  SHANKS  5  adaptado  por  Diego  ROMERO 


Un  sencillo  procesador  de 
textos  para  el  C-64 


El  programa  fue  escrito  para  un 
Apple,  pero  funciona  perfectamente 
— con  unas  pocas  modificaciones —  en 
el  C-64.  El  artículo  y  el  listado 
presentados  a  continuación  describen 
las  modificaciones  y  las  adiciones  que 
se  llevaron  a  cabo  sobre  el  programa 
original.  El  programa  funciona  con 
una  impresora  y  unidad  de  discos 
Commodore. 


El  programa  modificado  se  parece  en 
lo  más  básico  al  programa  original. 
El  texto  se  escribe  directamente  del 
teclado  y  se  almacena  en  elementos  de 
“siringa"  de  caracteres  en  un  "array"  de 
“strings".  Cada  elemento  tiene  asignado 
un  número  de  referencia,  y  cada  uno 
puede  almacenar  hasta  240  caracteres. 
Estos  bloques  de  texto  pueden  ser  edi¬ 
tados  y  revisados,  grabados  en  disco  o 
leídos  del  mismo,  y  volcados  a  impresora. 
En  el  programa  original  los  comandos 
VTAB  y  HTAB  de  Apple  se  utilizaban 
con  frecuencia.  Dado  que  el  C-64  no  tiene 
el  equivalente  del  comando  VTAB,  se  han 
utilizado  sentencias  PR1NT  con  coman¬ 
dos  de  la  teda  del  cursor  para  generar  los 
formatos  de  pantalla.  Los  valores  de  las 
tedas  del  cursor,  de  RVS  ON  y  RVS  OFF 
y  la  tecla  CLR/HOME  se  asignan  a  las 
variables  de  "strings"  en  las  lineas  15  y  17 
del  programa  y  son  los  que  se  utilizan,  en 
vez  de  los  caracteres  gráficos  de  Commo¬ 
dore,  en  este  listado*  Se  hizo  de  esta 
forma  para  que  el  listado  fuese  más  fácil 
de  leer. 

Se  han  modificado  los  caracteres  de 
control  utilizados  para  escribir  un  texto 
nuevo.  Al  pulsar  la  teda  DEL  se  borra  el 
último  espacio  o  carácter  escrito.  Para 
introducir  los  caracteres  de  control  al 
empezar  un  bloque  de  texto,  se  utilizan 
caracteres  de  control  de  una  sola  teda,  en 
vez  de  usar  una  secuencia  de  tecla  de  con¬ 
trol/teda  secundaria. 

El  símbolo  de  flecha  arriba  inicia  un 
nuevo  párrafo  de  texto  con  una  tabula- 


C-64 
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eión  de  cinco  espacios.  El  símbolo  de  fle¬ 
cha  hacia  la  izquierda  inicia  el  texto  en  la 
siguiente  línea  del  margen  izquierdo. 

Pulsando  la  tecla  del  signo  de  más  (+) 
se  salta  una  línea  y  el  texto  sigue  a  conti¬ 
nuación.  Al  volcar  el  texto  a  impresora  el 
signo  lo  imprime  con  caracteres  de 
doble  anchura.  Al  igual  que  en  el  pro¬ 
grama  original,  al  pulsar  la  teda  Return 
dos  veces  se  vuelve  al  menú. 

Cuando  se  elige  la  función  de  escribir, 
el  programa  avisa  al  usuario  que  puede 
empezar.  Pulsando  la  tecla  Return  se  elige 
d  primer  bloque  de  texto  vado  que  quede 
disponible.  Si  el  usuario  elige  un  bloque 
que  contiene  un  texto,  aparecerá  un  men¬ 
saje  de  "ref  ocupada"  y  se  buscará  el 
siguiente  bloque  vacio  que  quede  dis¬ 
ponible. 

Idtción  ampliada 

La  función  de  re  visar/ editar  también 
ha  sido  ampliamente  modificada  para  no 
tener  que  volver  a  escribir  encima  deí 
texto,  Después  de  seleccionar  la  opción 
revisar/ editar  en  el  menú,  pulsa  la  tecla  E 
para  que  el  programa  entre  en  la  modali¬ 
dad  de  edición.  El  bloque  de  texto  apare¬ 
cerá  junto  con  los  comandos  de  edición 
en  la  parte  inferior  de  la  pantalla.  Ahora 
el  texto  puede  ser  tecleado  o  modificado. 

Si  pulsas  la  tecla  CLR/ PIOME  el  cur¬ 
sor  se  colocará  encima  del  primer  carácter 
del  bloque  de  texto.  Pulsando  la  tecla 
CLR/HOME  con  SH1FT  se  coloca  el 
cursor  encima  del  último  carácter  del 
bloque  de  texto.  La  tecla  de  cursor  dere¬ 
cha/izquierda  desplaza  el  cursor  en  cual¬ 
quiera  de  estas  dos  direcciones.  La  tecla 
INST/DEL  borra  el  carácter  situado  a  la 
izquierda  del  cursor  y  desplaza  el  resto  del 
texto  un  espacio  hacia  la  izquierda.  La 
tecla  INST/DEL  con  SH1FT  desplaza  el 
carácter  donde  se  encuentra  el  cursor 
junto  con  iodo  el  texto  a  la  derecha  del 
cursor,  un  espacio  a  Ja  derecha,  e  inter¬ 
cala  un  espacio  en  blanco  en  el  lugar 
donde  se  encuentra  el  cursor.  La  tecla 
Return  guarda  todo  el  texto  en  pantalla, 
sea  cual  sea  la  posición  del  cursor,  y  el 
bloque  de  texto  volverá  a  aparecer  en 
pantalla  en  la  modalidad  de  revisar. 

Cuando  se  edita  un  texto  con  el  bloque 
casi  lleno,  es  posible  que  no  se  vean  los 
desplazamientos  de  texto  al  introducir  y 
borrar  pulsando  las  teclas.  Sin  embargo, 
estas  funciones  se  están  realizando,  y  al 
pulsar  la  tecla  Return,  se  puede  ver  el 
bloque  de  texto  en  pantalla  de  nuevo,  en 
la  opción  de  revisar  incluyendo  todas  las 
modificaciones  realizadas.  Al  pulsar  la 
tecla  E,  la  pantalla  vuelve  a  la  opción  de 
edición,  de  modo  que  se  puede  continuar 
escribiendo. 

La  opción  insertar/copiar  permite  la 
introducción  de  un  bloque  de  texto  donde 
sea  necesario,  sin  destruir  el  texto 
existente. 

La  rutina  de  salvar  en  disco  guarda 
iodo  el  texto  en  un  fichero  secuencia!  lla¬ 
mado  TEXTFtLE.  El  fichero  nuevo  se 
salva  encima  de  un  fichero  guardado  pre¬ 
viamente  en  el  disco,  de  modo  que  hay 
que  tener  cuidado  al  guardar  ei  fichero. 


mensaje  CARGANDO  ARCHIVO  DE 
TEXTO  para  que  el  usuario  se  dé  cuenta 
de  que  se  está  cargando  el  fichero. 


'  [pttwae  J  i 


Adicionas 

Una  opción  de  inserta r/copiar  fue 
incorporada  al  menú  con  el  fin  de  poder 
copiar  un  bloque  de  texto  de  un  numero 
de  referencia  determinado  a  otro  o  inser¬ 
tar  un  bloque  de  texto  vacío  en  cualquier 
número  de  referencia.  Una  vez  hecha  la 
selección,  el  programa  te  indicará  que  eli¬ 
jas  o  bien  la  función  de  copiar  o  bien  la 
función  de  insertar. 

Sí  eliges  la  función  de  copiar,  el  pro¬ 
grama  te  preguntará  el  número  del  bloque 
de  texto  que  será  copiado  y  el  número  del 
bloque  donde  se  tiene  que  copiar,  y  a  con¬ 
tinuación  te  preguntará  si  estas  seguro. 
Tienes  que  contestar  que  si  antes  de  que 
se  pueda  iniciar  la  función.  Si  eliges  la 
función  de  insertar,  el  programa  te  indica 
que  teclees  el  número  de  referencia 
deseado.  La  rutina  desplazará  los  bloques 
de  texto  existentes  hacia  un  número  de 
referencia  más  alto,  empezando  por  la 
referencia  del  bloque  seleccionado.  Esta 
facilidad  te  permite  introducir  bloques  de 
texto  cuando  sea  necesario,  sin  tener  que 
destruir  el  texto  existente. 

La  rutina  para  formatear  la  impresora 
constituye  una  adición  muy  importante. 
Cuando  se  selecciona  la  opción  de  copia 
impresa,  el  programa  te  indica  que  elijas 
la  rutina  de  format ación  o  los  parámetros 
por  omisión  estandard. 

Los  valores  por  omisión  son  los 
siguientes:  margen  izquierdo  de  cinco 
caracteres,  longitud  de  línea  de  70  carac¬ 
teres  (incluyendo  los  caracteres  del  mar¬ 
gen  izquierdo),  margen  superior  de  tres 
lineas  y  margen  inferior  de  tres  líneas,  A 
medida  que  se  va  imprimiendo  el  texto,  el 
programa  busca  un  espacio  entre  los 
últimos  diez  caracteres  de  la  linea  y,  si  lo 
encuentra,  envía  un  comando  de  retorno 
de  carro  a  la  impresora,  Si  no,  la  línea 
termina  cuando  el  contadur  de  caracteres 
llega  a  la  máxima  longitud  de  la  línea. 
Como  resultado  de  esto  el  margen  dere¬ 
cho  queda  desigual  al  no  dividir  una 
palabra  (a  no  ser  que  encuentre  una  pala¬ 
bra  de  más  de  diez  caracteres).  Esto  se 
hace  asi  principalmente  para  que  el  texto 
impreso  resulte  más  fácil  de  leer. 

El  programa  también  pide  el  principio 
de  página  para  que  pueda  controlar  el 
número  total  de  las  líneas  impresas  en 
una  página  y  saltar  a  la  página  siguiente 
(dejando  los  margenes  superior  e  inferior) 
para  evitar  que  se  imprima  en  el  pliegue 
de  la  página.  Tienes  que  alinear  el  princi¬ 
pio  de  página  con  la  cinta  de  la 
impresora. 

Una  lista  de  todas  las  variables  utiliza¬ 
das  empieza  en  la  línea  5000  con  el  fin  de 
facilitar  cualquier  modificación  adicional 
al  programa.  Se  inician  los  valores  por 
omisión  de  formato  de  la  impresora  en  la 
línea  10  y  estos  se  pueden  modificar 
fácilmente  con  el  fin  de  acoplarse  a  una 
necesidad  determinada. 

Suma  de  Control  del  procesador  de  texto 
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Dado  que  el  comando  Input  del  C-64 
utiliza  80  caracteres,  la  rutina  que  carga  el 
fichero  de  disco  utiliza  el  comando  Get  y 
construye  cada  elemento  del  "array"  a 
medida  que  va  avanzando.  Esto  resulta 
bastante  lento,  de  modo  que  a  medida 
que  cada  elemento  se  construye,  aparece 
un  punto  en  pantalla  a  continuación  del 


Después 


seleccionar 


opcion 


revisar/editar 


programa 


entre 


modalidad 


edición 


153  TCÍ=ñ$íP)  TCf=RIGHT$(TCí jLENCTCÍ 
)-L+l>  ñf<P)-LEFTrfñí(P)JL-l >'Eí="CSPC3 


2  P0KE53281» 1  PÜKE 53200, 12  PRINT" CBLK ] 


10  LM=5 ; LL=7fi ■ P£=3  PE=3  PP= 1  :RE=50O 
REM  PARAMETROS  DE  IMPRESION  POP  DEFE 
CTO 

15  RO*»CHR*(ia>  -RF*wCHRí<146>  CLJ=CH 
RÍC157J  CRJ=CHRí<230 : CBí=CHRi( 1?) 

17  CUÍ“CHRÍC 1 45/  HÜÍ=CHR$( 19) 

26  DIMAÍCS00)  ZE6553b : GOTÜ380 

23  REM  *♦*♦*»•*«*•♦♦**♦♦#«♦***♦**•♦* 
i* 

25  REM  * 

* 

27  REM  *  SIMPLE  PROCESADOR  DE  TEXTO 


152  fií<P)=ñí(P)+EÍ+TCi 'GOTO  124 
154  IFEO20THENGGTO162 

15b  L=L-1 ' I FL< 1 THENGQTO 1 22 

153  TCí=Ri£P)  TCí*=RI GHTÍf TCí . LENÍTC* 

>-L  ) AI<P)*LEFTí<AÍ<P),L-l) 

160  AÍ(P)=RÍ(P)+TCÍ  PRINTCHRí (20) ¡ :G 
OT0124 

162  I FL+ 1 >240THENGOTO 1 24 

164  TC$=Aí<P) ■ TC*=>RIGHT.f  (TCí.  LENÍTCÍ 

>-L>  ' AÍ(P)*LEFTí (fií<P) , L-l > 

166  AÍ(P)“At( P)+EÍ+TC* 

166  PRINTRFÍ JMIB*<ftí<P>  <L- 1  j; 

170  L  =L+1  IFMTDÍ(ftKP)  j  L< 1  )=" "THEMftí 
(P)-AÍ(R)+"tSPC]'* 

172  PRÍNTROí;I1ID*<flí<P>-L.  1  >*CLí ,  :  00 
T0124 

174  PRINTPFí jMIDÍCHÍCPJíLí 1  ■  PETUPH 
240  REM  **+*  SUBRUTINA  DE  ENTRADA  DE 
DATOS  M* 

245  fií(P)="" 

250  F0RN=1 TO240  PRINT" C2SPC3 C2CRSRL ] 
C  COMMH  3  C  CRSRL  D  ’*  1 
255  GETBJ  IFBt*11  "THEN255 
260  BA=ASC(Bf > 

265  I FE R =20 TH ENGQ SUB 1 5 0 0  PRINTCHRí < 1 
37) ;CHRÍ(32) ; CHRf < 157) ;  GOTO303 
270  IFEA=13THENN=240 : GOTO305 
2S0  1 FBA=94THENPR I  NT " C5SPC 3 " 1 
285  IFBrt=43THENPPINT 
295  PRINTBf; 

300  At£P>=Rí (P)+BÍ 
305  NEXT 
316  RETLJRN 

320  F:EM :  **■*.*  RUTINA  DE  VISUALI2ACI0 
N  **+ 

330  IFAf (P>=" " THENRETURN 

341  1FASC<LEFTÍ<AÍ<P)> 1 ) )*84THENPRIN 

T"r3SPC]"JAf(P>l : RE TUR N 

351  IFRSCCLEFTÍCRIaP). 1 ) )=43THENPRIN 

T  PRIHTflf(P); ¡ RETURN 

371  PRINTAf(P) i  -RETURN 

360  REM  ***  MENU  PRINCIPAL  +♦* 

390  PRINTCHRÍ ( 147); CHRÍ( 142)  PRINT 
405  PRINT" C 1 1 SPC 1  ====== ======::==!1~a" 


29  REM  *  PARA  EL  COMMÚDORRE  64 


31  REM  *  POR  GARV  D.  MCCLELLAN 


A  SIMPLE  TEXT 


35  REM  *  ADAPTADO  DE 


37  REM  *  PROCESSOR'  BY  HENRY  SIMPSOH 


39  REM  *  M I CROCOMPUT I NG ,  MAY  1981 


43  REM  #*»♦****«*+*♦+*♦*+***♦******+ 

¿tH 

70  REM  ****  SUBRUTINA  DE  MEMORIA  DIS 

pnki  T[¡|  P  a  »  » 

80  M"FREC0) ’ IFM<0THENM*M+2 
90  PRINT"C5SPC3 " ; CHRí ( 18) "QUEDAN! SPC 3 
■  " ; M" CCRSRL 3  C  SPC  3 BVTES " ¡ RETURN 
95  REM  ***  RUTINA  DE  EDICION  DE  BLOC! 
UES  DE  TEXTO 

100  PRINTCHRí (147)1 " - 


F0RX«1TQ8 


102  PRINTROÍ " REF#"jP;RFÍ 
PRINTCDí; : NEXTX : PRINT 
104  PRINT" - 


106  PRINT'1  C2SPC  3  TECLA  CSPC)  CLR/HÜME  CSPC) 
OJRSORCSPCIACSPCIF  INC  SPC  3DECSPC  JUNE 


103  PRINT"t2SPC3SHIFTCSPC]CLR2H0ME : CSPCÍ 
CURSOR  C  SPC IflCSFC 1PR INC I P I QE  SPC3DE " 

118  PRINT" CSPC 1CRSRCSPC3LEFT/RIGHT  f SPC] 
MUE  VEN  t  SPC  1  EL  I  SPC  ]  CURSOR  ’* 

112  PRINT" C2SPC) TECLA CSPC) INST/BEL  CSPC) 
BORRA [ SPC 3CARACTER. " 

114  PRINT" C2SPC 3SHIFTC SPC )INST/DEL  CSPC) 
INSERTACSPOESPACIOCSPC) " 

1 16  PRINT"  C4SPC)  TECLA  CSPORETURM :  CSPC) 
VUELVE I SPC I AL  C  SPC ] MODO C  SPC ) NORMAL " 

118  IFfií (P )  =  " " THENflí í P ) = " C SPC ) " 

120  PRINTHOíCDíCDí J  Aí<P> 

122  L=1  PR I  NTHOí CDí CDf ROÍ ;  fl  I  DI  (  ñf  (  P  ) 

. L. 1);clí; 

124  GETEÍ ■ IFEi*""THÉN124 
126  E=ASC(EÍ) : IFE=1 3THENG0T0174 
1 28  IFED3 1 ANDEC96THENG0T0 1 62 
1 30  IFE=29ANDL+1 >240THENGOTO1 24 
132  IFE=*29THENPRINTRFÍ ;MIDf CfiííP) ,  L, 

1); ; GOTO 170 

1 34  I FE= 1 57ANDL- 1 < 1 THENGOTG 1 24 
1 36  I FE= 1 57THENPR I NTRFÍ ; M I DS<ft*(P) . L 
,  t>;  '•  L=L- 1  PRINTCLtCLí;  : GOTO  172 
138  IFE=1450RE=1 7THENG0T0124 
140  IFE" 1 43AMDL+ 1 >249THENGOTO 1 24 

142  IFE  =  I47THENPRI NTRFÍJ  MIDt(Aí(P).L 
U);  -  GOTO  1 22 

144  I  FE*>  1 9THENPR I NTRF ÍHOÍC  BÍCDÍ ;  Aí  (  P 
>,CLÍ . : L=L6N(AÍ<P> ) ' GGT0172 
146  IFEOI 4STHENG0T0154 

143  PftINTRFÍ ; MIB$<A$(P)>L* 1 ) ; CLí; CHR 

í(i48);  HCSPe]";CLíROí;  "cspc]";clí; 


410  PRINT" C 1 1SPC)=CSPC)MENUCSPC)PRIN 
CIPALISPC)=" 

420  PRINT" [ 1 lSPC]=======*==I=c==-==" 


425  PRINT 

430  PRINT ; PRINT" C5SPC3 I. CSPC DESCRIBI 
R CSPC) TEXTO" 

440  PRINT  ■  PRINT"  C5SP02.  CSPOREVISAR 
/ED ITflfi C  SPC ) UN  C  SPC ) BLOQUE " 

445  PRINT  PRINT" C5SPC13. CSPC) INSERTA 
R/COP I RR E SPC  JUNE SPC ) BLOQUE " 

450  PRINT' PRINT" C3SPC34. C SPC 1LEER CSPC] 
DÉLCSPC3DISC0" 

460  PRINT ¡ PRINT" C5SPC15. CSPC) GUARDAR 
[ SPC ) EN [ SPC ) D I SCO" 

470  PR I  NT  PR I  NT " C  5SPC 3  6. C  SPC ] SACARE  SPC ] 
POR CSPC 3  IMPRESORA" 

480  PRINT  PR I NT "C5SPC37. CSPC! TERMINA 


484  PRINT ' GOSUB70 

485  PR I NT ■ PRINT " C 5SPC 3SELECC I ONAR C SPC 3 
( 1-7)  ■  " 

490  OETAOÍ :  IFAQÍ="  "THEN490 
500  IFAÜ1=’'  1  "THEN576 
510  I FflOf « " 2 " THE N63 0 
515  I FfiOí= " 3"THENG0SUB2 1 00 
520  IFRÚÍ=" 4" THENGQTO  1140 
530  1 FfiOí = " 5 " THENGOSUB 1200 
540  IFAOÍ=" 6" THENGOSUB 1060 
550  lFAOt="7"THENCLOSE200  END 
563  GOTO380 
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725  PRINTCHRÍC 147) 


576  REM  ***#  RUTINA  DE  ESCRITURA  *** 

4 

580  FGRG=1TO500 

530  IFfiííG)=" " THENF=G  :  G=5B0 

660  NEXT 

662  PRINTCHRÍ ( 147) 

603  PR I NT " [ 43PC ] ENTRA  C  SPC  ]  EL  £ SPC  ]  NUM 
ERO  [  SPC I DEC  SPC ] REFERENC IRC $PC  30 " 

604  PR  I  NT "  I  SPC  ]  'RETURN'  C  2SPC  3  PARA  C  SPC  J 
LAtSPCDPRÜXIMAtSPC]  DISPONIBLE"  '  INPIJT 


730  PRINTCHRíí 14) ; ROÍ ■ "REF#" ; P; RFí 
740  I F A í ( F ) O " " THENS00 
760  PRINTCHRÍÍ 18) i "EMPTY" 

780  GOTO820 
808  GOSUB320 

820  PRINTHOÍ : FGRX=1T08 : PRINTCDÍ i 1 NE¡ 


030  PRINT 


835  PRIHTROí" TECLAS [SPC IDE CSPC1 CONTR 
OL";RF# 

840  PRINT" [SPC] 'F' :£ SPC JABELANTE" 

850  PRINT" CSPCI-'B'1 :  C SPC ] ATRAS" 

860  PRINT"[SPC]/X/ = [SPCI SAL IR"; 

865  PR I NTSPC  <  8 ) ROÍ " ESCOGE  C  SPC ] ?" i RF* 


605  I  FF<  1 ORF>50BTH£NPR I NT " DE  t SPC ] 1  £  SPC ] 
A [ SPC I500C  SPC3P0RC  SPC ] FAVOR" :GOTG603 


610  PRINTCHRíí 147) " - 

- “;CHR*(14>J 

620  FORP=FTO500 

630  PP I NTCHRÍ  ■'  1 8 ) ,  P  ;  CHRf  <  146)  - 
635  IFAÍ(P)0" "THENPRI NTCHRÍ <  13) ;  "RE 
F. [SPCJOCUPADA" -FGRX-1 TO 100: NEXT  GQT 
0660 

640  GOSUB240 

650  lF(AiCP) )=" "THENP=500 
660  NEXT 
670  GOTO3B0 

680  REM  #**  REVI SR/CORR IDE  PANTALLA 

¡l¡4$ 

690  PRINTCHRÍ (147) 

700  I NPUT " ENTRA! SPC ] REF#  C  SPCI A [SPC IR 
EVISAR  "  ;P 

710  I  FP<  1 QRP>500THENPR I NTPOÍ "  DE  C  SF'C  ] 

1  [ SPC  3 At  SPC3500 [ SPC 1 PORC  SPC ] FAVOR- "R 
F4  GGTO700 

728  REM  #***  VISUALIZA  TEXTO  REF  *#** 


870  PRINT" [SPC] 'B' ■ [SPC] BORRAR" 

8S0  PRINT" [SPC] ■ [3PC0EDITAP" 

900  PR I NT ROÍ " CODIGOSCSPC ] DE [SPC 3 CQHT 
ROL: "RF* 

905  PRINT " [ 1 0SPC ] 'O ' [ SPC ] : [SPC ] DOBLE 
[SPCI ANCHO" 

910  PRINT" ClOSPCl't'ISPC] : £ SPC] NUEVO 
CSPCIPARRAFO" 

920  PRINT" [ 10SPC] ÍSPC] : [SPCISALTA 
R[SPC3LINEA" 

930  PRINT" [10SPC] 'í-'t SPC] : CSPCJMARGE 
N[ SPC] IZQUIERDO" 

941  GETAClí : IFAGÍ=" "THEN941 
945  PRINTCHRÍ (147) 

950  IFA0í“"X"TH£N380 

960  IFAOí="F"fWDP<500THENP»P+l  DOTO720 


jjt  80  COLUMNAS  -  CBM  64  con  color,  símbolos  gráficos,  sprites  y  sonido...... 

GESTION  DE  STOCKS  1300  artículos,  350  clientes  por  disco,  listados  varios, 
VIDEO  -  CLUBS  1500  películas  y  500  socios,  listados  varios - 

ALTA  RESOLUCION  -  CBM  64  - 

MONITOR  CODIGO  MAQUINA -CBM  64 - 

_ _ _ PROMOCION  NAVIDAD - 


*  *  •  •  COMMODORE  VIC  20  y  C  64  15%Dto.  sobre  P 

*  *  ♦  *  ESPECTRAVIDEO  mod.  318  y  328  15% Dto.  sobre  P 

*  *  •  *  AMSTRAD  mod.  C  P  464  15% Dto.  sobre  P 

*  *  *  •  SINCLAIR  16K.  48K.  Plus  15%Dto.  sobre  P 

»  •  *  *  DRAGON  32K.  64K.  15%Dto.  sobre  P 

*  Y  TODOS  SUS  PERIFERICOS  -  15%Dto.* 
ATENCION:  Todos  ellos  con  garantiadeiimportador  oficial 


(MAS  GASTOS  DE  ENVIO) 


I  NVIE  A  COmp-KCl /iTtQll  JAIME  *- US  ■  MQLLET  Biatlon» 


Para  más  información  llamar  al  teléfono  593  75  01 


Pedidos  por  teléfono:  193)  593  75  OT 


nombre 

JUEGO 

PRECIO 

total 

APELLIDOS 

DiRECOON 

POfl  L  ACION  op* 

Fofín®ac  me  luido  TaiOn  nomintlíwi;  O 

Comn  rwmbolw  O 

F rucio  Tatftl  D*4« 

1(H 

_ J 
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Un  sencillo  procesador  de  textos  para  el  C-64 _ 


970  I  FACÍ * "  F 11 THEN720 

960  IFAG$=,iB"hNDP>1THENP=P-1  :GGTG720' 

999  IFA0X=UB"THEN72G 
1600  JFfi0í="E"THENGOSUB100  GQTO720 
1010  IFA01  =  ‘'B"THENAí(P)s"  "  GOTO720 
1020  G0T0725 

1060  REM  ♦♦♦♦  HACE  COPIA  IMPRESA  +■*'*■ 

* 

1061  PRINTCHPtC 147) 

1062  PR I  NT " RUT  I Nfl I SPC  3  DE  C  SPC ] COHFl GU 
RÑCIÜNCSPC3 " ■ INPUTfl» : IFLEFTÍfGí- 1 ><> 
"V"THEN1085 

1 062  PR I  NT " ENTRA [ SPC] MARGEN [SPC 3 1 ZQU 
I ERDQCSPC 3 ( NUMEROr SPC1DÉ ! SPC  3  CARACTE 
RES)" 

1664  LM=5  INPUTLM: IFLM>70THENPRINT"1 
í SPC  3  A  C  SPC3  70 1  SPC  3  POR C  SPC  3 FAVOR " : GOT 
01062 

1065  PR 1  NT" ENTRA C SPC 3 LONGITUD: SPC 3 DE 
[ SPC  3  L I HEA  E  SPC] <  NUMEROCSPC  3  TOTAL  C  SPC ] 

DEI SPC 3 CARACTERES)" :LL=70: INPUTLL 

1 066  I F LL <20ORL L>SSTHENPR I  NT " DE [ SPC  3 
20  C  SPC  3  A  C  SPC  3  SS  C  SPC  3  POR [ SPC  3  FAVOR- " : 

GOTO 1065 

1 067  P8®3 ; PR I  NT " EN TRAC  SPC  3  MARGEN C SPC 3 
SUPERIOR: SPC 3 <NUMÉR0C SPC IDE CSPC3LINE 
AS ) 11 

1069  INRiJT  PS:  IFPS<1QRPS>65THENPRINT 
" DE  C  SPC  3 1 C  SPC ] A  C  SPC 165 [ SPC 1P0R  C  SPC  3  F 
AVOR"' GOTO 1067 

1071  PE =3  PRI NT "ENTRAC SPC 3 MARGENC SPC 3 
3  NFER I OR C  SPC) (NUMERO [ SPC  3  DEC SPC  3L I HE 
AS)'1 

1073  INPUTPE  IFPEC1 0RPE>65THEHPPINT" 

DEC SPC 3 1 CSPC3ACSPC  365 C SPC 3 POR t SPC 3 FA 
VOR" 1 G0T01Ú71 

1075  PP=1  PR1NT"ENTRACSPC3REF#CSPC3I 
NICIAL " 

1077  INPUTRP :  IFRPC1ÜRRP3’500THENPRINT 
"DEC SPC 3 1 CSPC3A:SPC35Ü0CSPC3PÜR:SPC3 
FAVOR"  GOTO 1075 

1033  RE =500 ■ PR I NT " ENTRA [ SPC  3  REF  S  CSPC  3 
FINAL" : INPUTPE ' I FRE< 1 ORREQ500THENGGT 
01075 

1 085  PR I  NT " PREPARA  C  SPC  3  EL  C  SPC  3  PAPEL  t  SPC  3 
DEC SPC 3LACSPC3 IMPRESORA. " ■ PRINT"PULS 
R C SPC 3  UNA C SPC 3 TECLAC SPC 3 PARA! SPC 3 SEG 
UIR" 

1087  GETQX ' IFOí=" "THEM108? 

1089  PEM  *>*»•  ACTIVA  IMPRESORA  ♦*** 

1091  0PEN4.4. 7  CMD4 : G03UB1387 
1093  LMÍ="“  FÜRJ=1 TOLM ' LMí=LMf+CHRí< 

32 > 1 NEXTJ : PF«0 
1095  FORP=RPTORE 

1097  IFA*<P>s""ANDA*(P+l)=""THENP=50 

O'GOTOlllÚ 

1100  GOSUB1300 

1110  NE!1T 

1120  IFPF=1THENP0*=LMS+BS  PRINTPO* 

1125  PRINTK4 : CL03E4 
1130  RETURN 

1140  REM  ****  LEE  ARCHIVO  DEL  DISCO 

1142  PRIHTCHRf < 147)  PRIMT'CARGRNDQCSPC] 
EL  C  SPC  3  ARCH I VO [ SPC  3  DE  C  SPC  3  TEXTO " ; 

1145  0PEN15, 8j 15 

1150  0PEH5, 8. 5 ■ "O  TEXTFILEj S. R" 

1 152  GOSUB2Q00 : IFER=1 THENER=0 ; FI=0 : G 
OTO  11 80 

1155  INPUT#5,FI 

1160  FORP=1TOFI  fll(P)='"‘ 

1 162  GET#5,  Cf  IFASCCCf  ÍOIGTHENHÍ  <P> 
=Aíi;P)+Cí  G0T01162 
1175  PRINT" . “ i  ' NEXT 
1180  CL0SE5: GLOSE 15 

1182  PRINT  PRINT  PRINTFI ) "BL00UESCSPC3 
DE[SPC3TEXTOCSPC3LEIDOS. " :PRINT"PULS 
Af SPC 3 UNAC SPC 3 TECLA" 


1184  CETQí’ IFOi=" "THEN1 1S4 
1190  GOT 0330 

1200  REM  ****  GUARDA  ARCHIVO  DE  TEXT 
O 

1202  PRINTCHRí í 14?)  :  PRINT"GUAF<  DANDO C SPC  1 
ARCHIVO! SPC 3 DEC SPC 3 TEXTO"  PRINT 
1205  0PEN15.8. 15 

1210  0PEN5.8.5, "00  TENTE ILE, S, W" 

1215  GOSUB2000 : IFER=1TH£NER=0:FI=O  G 
ÜT01275 

1240  FORP=1TO500 

1245  IFflí (P)O "  "THENFI=P 

1250  NEXTP 

1255  PRINT#5,FI 

1260  FORP= 1 TOF I 

1265  PRINT#5j  Aí(.P) 

1270  NEXTP 

1275  GLOSES : GLOSEIS 

1280  PRINTFI; "BLOQUES C SPC 3 DEC SPC3TEX 

TOC SPC 3 GUARDADOS, " ■ PRINT "PULSflrSPCTU 

NAC SPC 3  TECLA" 

1285  GETQí ' IFQX=" "THEN12S5 
1290  RETURN 

1300  REM  ****  RUTINA  DE  IMPRESORA  m 
itit 

1 305  I FAX (P )= " " THENRETURN 
1310  TC»ASC  <  LEFTÍ  <  flí  f P ) , 1 ) ) 

1315  IFTC=94THE NQOSUB 1330  CC=LM+5  Bx 
=" C5SPC3 "  PF-1  G0T0134B 
1 320  I F  TC =4  3  THE  NG  OSUB 1380 ¡ PRI NT : LC=L 
C+ 1 ' GOSUB 1 383 : GOTO  1 340 
1325  IFTC=64THENGOSUB1380 : DW=1  PRINT 
CHRXí  14):  (JOSUE  1 383 :  GOTO  1 340 

1330  IFTC=95THENG0SUB138fl ' GOTO 1340 
1 335  TC#=Af  (P)  '■  GOTO  1 345 

1340  TCisRIGHTf <Rt<P) , LENXftf <P) )-l ) ' 

I  FTCí = " " THENPF =0  RETURN 

1345  IFPF=OTHEHBí=" " 

1346  FORX=1TOLEN(TCÍ)  ■'  IFBÍ="  “ANDMIDX 
(TCX,  X,  1  >=CHRf  <32>THENCC=!CC+ 1  X=-v!+l 
1350  CCsCC+1 :BÍ=BX+MrD*<TCí,X, 1) 

1355  I FLL-CCO  OANDMI DX  <TCí , X, 1 )  =  "C3PC3 

"THENPF=1 : GOSUB 1380 

1360  I FCOLL  THENPF®  1  GOSUB  1380 

1365  NEXTX;  IFBíO""THENPF=l 

1375  PETURN 

1 380  I  FF'F=1  ANBBXO  " "  THENPOX=LM  f+BX  ;  P 
RINTPOí ¡ Bí = " " ' CC=LM ' LC=LC+ 1 

1331  IFDN=1 THENPRINTCHRí < 15) ; :DW=I 
1383  I FLC< ( 66-PE  >  THEN1 399 

1385  FOR I  =  1  TOPE ' PR I NT : NEXT I 
1 337  FOR I  =  1 TOPS : PR I  NT : NEXTI 
1389  LC=PS 
1399  PF=0' RETURN 

1500  PEM  ****  RUTINA  DE  TECLA  DELETE 
PAPA  BLOQUE  ESCRITO  **¡M 
1505  1FLEH( Aí (P) )CITHENA$CP>=" "  BX=" 

" : N=240 i G0T01 530 

1510  AX(P)=LEFTX(AX(P) , LEN<AX<P) )-l ) 

1520  I FN> 1 ÜRN= 1 THENN=N- 1 
1530  RETURN 

2000  REM  RUTINA  DE  ERRORES  DE  D 

ISCO  44* 

2010  I  NPUTft  1 3 , SI  * . S2Í , S3Í ,  S4i 

2020  I FVAL < S 1  *  »0THENPR INTS 1 í , S2X , S3 

X, S4X  CL0SE5 : GLOSEIS : ER=1 

2030  RETURN 

2100  PRÍNTCHRÍCH7) 

2110  PRINT"  *  I  ■*  CSPC]  INSERTACSPC1UNCSPC3 
BLOQUE C SPC IVACIOC SPC] ENCSPC 3 REF#» 

2120  PRINT" 'C' ESPC3C0PIAESPCIUNCSPC) 

BL OQUE C SPC I EN C SPCI OTRO CSPC] NUEVO! SPC I 
REF#" 

2130  INPUT" COMANDO ' " J  Qí 
2140  IFG#= "C" THEN2200 
2150  I  FOX = " I " THEH24B0 
2160  GQTO330 
2200  REM  COPIAR  BLOQUE 
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i  2210  PRIHT  PRI NT "COPIAR! SPC 3  BEL [SPC 3 
BLOQUE [ SPC 3 REF#  " 

2220  INPUTP1 : IPP 1 <0ORP 1 >500THEH22I 0 
2225  INPUT"ALCSPC3BLGQUEESPC3REF#  % 

P 

2230  1FP<0ORP>500THEH2210 
2240  FPINT"REF# " ; P1 j " C SPC 3 SERA I SPC 3 C 
OPIADO! SPC3ENCSPC3REF#" , P  PRINT"E$TA 
SCSPC3SEGUROCSPC3?" 

2330  Gí="N" :  IMPUTO*  IFLEFTfíSf  .  1  )  =  "S 
"THENGOT Q2350 
2340  GOTO 330 
2350  Hl(Pl=fl*ÍPl> 

23É0  PRINT"OTPñCSPC3COPIñCSPC3?  " 

'  2370  Qf- "N" : INPUTQ* : IFLEFTí ÍQ*. 1>="S 

"THENGOT 022 10 
2360  G0TO380 

2400  REM  INSERTAR  TEXTO  EN  BLANCO  EN 
EL  BLOQUE  REFtt 

2410  PRINT  PR I  NT 11  REF  tt  C  SPC  3  DONDE  C  SPC  3 
I  ASERTAR  !  SPC  3  EL  C  SPC  3  BLOQUE  E  SPC  3 '?  ;  " 

2420  IHPUTP1 : I FP 1 < 1 ORP 1 O5G0THENGOTO2 
410 

2430  FORF-P 1 TQ300  I FAS ( P> = " "ANDAí <  P- 

1)b" "THENP2=P“1  P=500 

2440  NEXTP 

2445  IFP2<1THENP2*1 

2450  F0RX*£P2T0P  1 STEP- 1  fl*CX?=A*(X-l 1 

'  N6XTX 

2455  Aí(PI )=" " 

2460  PRI NT " REF# C SPC 3  "  J  P 1 ; " CSPC3LI ERE 
[  SPC 3 PARA C SPC 3 ENTRAR CSPC3 TEXTO" 

2470  0J="N" : INPUT" INSERTOCSPC30TROCSPC3 
BLOQUE" 1 Qí 


2430  IFLEFTííQi, 1>="3"THEN2410 
2430  GOTO330 

5O00  REM  ***  LISTA  DE  VARIABLES  DEL 
PROGRAMA  *»>* 

5010  REM  RP=REF  INICIAL  RE“  REF  F 
I NAL  LL=  LONGITUD  DE  LINEA 
5020  REM  PS= COMIENZO  DE  PAGINA  PE 
=  FIN  DE  PAGINA 

5025  REM  LMí-STRING  DE  MARGEN  IZQUIE 
RDO  H0*= TECLA  HOME  CL*=CURSOR  IZ 
QUIERDA 

5030  REM  CRí*CURSOR  DERECHA  CDí=CU 
RSOR  ABAJO  CUf=  CURSOR  ARRIBA 
5040  REM  Qí-VARIRBLE  TEMPORAL  PARA  P 
PEGUNTAS 

5050  REM  A* CP) “BLOQUE  DE  LA  MATRIZ  D 
E  TEXTO  P= PUNTERO  DE  LA  MATRIZ 

5055  REM  Pl=  PUNTERO  TEMPORAL 
5060  REM  FI “VARIABLE  TEMPORAL  PARA  M 
ANEJO  DE  FICHEROS 

5065  REM  AOf= VARIABLE  DE  CADENA  PARA 
COMANDOS  DEL  MENU 

5070  REM  Slf  A  S4f“ VARI ABLES  PARA  MA 
NEJO  DE  ERRORES 

5075  REM  B*“STRING  DE  TRABAJO  TC* 

“STRING  TEMPORAL  DE  TRABAJO 

5030  REM  ROt= REVERSE  ON  RFí=REV 

ERSE  OFF 

5030  REM  Eí=STRING  DE  TRABAJO  EN  EDI 
C I ON  Cí= IDEM  PARA  MANEJO  DE  ARCHIV 
OS 

5100  REM  PO*=IDEM  PARA  IMPRIMIR 
5105  REM  PF= INDICADOR  íFLAG)  DE  ESTA 
DO  DE  CADENAS  DE  TRABAJO 

I 


Tjenith 


ZVM-123  A  Pantalla  verde 
no  reflectante  Entrada  de 
Video  compuesto 

ZVM-131,  Monitor  de  en¬ 
trada  compuesta  de  video 
JRGB  Señal  audiocon  dis- 
pJay  de  25  lineas  y  40  ca¬ 
racteres  por  línea.  Manejo 
sencillo  desde  el  panel 
frontal. 


ZVM-124.Super  resolución 
para  IBM  PC  con  adapta- 
dar  monócromo 


ZVM-133.  Pantalla  de  80 
columnas,  ideal  i8M  PC  y 
sus  compatibles,  monitor 
de  color  RGB  de  alta  reso¬ 
lución. 

ZVM-136  Posee  todas  las 
características  del  ZVM- 
133  RGB,  añadiéndose  una 
pantalla  de  fósforo  de  larga 
duración. 


Z-150PC.  320  K.  RAM,  2  Orives  ampliadles  a  30 
Mbytes.  tarjeta  de  color,  alta  resolución  compatible 
con  IBM 


Comercial  CRUZ 

MONTÉSA,  38  ■  Teifi..  402  92  41  -401  26  26  -  MAOHID6 


Commodort'  World  Diciembre  1984/13 


Un  tencille  procesador  de  textos  poro  el  C-64 - 


5110  REM  N=COMTflDDR  E= VALOR  ASCII 

PARA  EL  MODO  DE  EDICION 

5123  REM  L=PUNTER0  PARA  LA  FUNCION  M 

I  Di  G=C0NTAD0R  PAPA  LAZOS 

5i3ñ  rem  nu= INDICADOR  (FLACO  DE  DOEL 

E  ANCHO  ER= INDICADOR  DE  ERROR 

5135  PEM  F=C0NTAB0R 


SUMA  DE  CONTROL  DEL  PROCESADOR  DE  TEXTO 
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95 

156 
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158 
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5 
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70 

166 

54 

¿Que  no  sabes 
cómo  suscribirte 
a  Commodore  World? 

¡¡¡PUES  VENGA,  LLAMANOS!!! 
(91)  231  23  88/95  y  (93)  212  73  45 
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ADAPTADO  Al  PtAPí  GEKEfl  Ai.  CONTABLE  ESPAÑOL 


DESEO  RECIBIR  INFORMACION: 

Nombre  v  dirección: 


c/  dragón,  272, 8.°(  6.a  tel.  215  69  52  09007  barcelona 


EXTENSA  GAMA  DE  PROGRAMAS 

PROGRAMAS  EN  CARTUCHO  PROGRAMAS  EN  CASSETTE 


VIZAWRITE  64 
PRACTICALO  64 


VIDEOCLUBS  64 


11.300  videofHrm 
650  clitnm  por  ditco 
Saldo  út  cada  cítente 
Alt»  v  bajas  vídeofilrm 

Buwueda  ir¿deoí¡liTn/c(i««tM. 

P-V.P,:  35  000,- 


ADMINISTRACION 
DE  FINCAS 

30  inmueble* 

400  inqgilinoi 
Lutado  recibo* 

Propiedad  vertical 
Común  ¡ctodei  de  propietarios 
P.V.R, :  35,000- 


CÚHT  ABl  L  I  DAD  PERSONAL 
CONTABILIDAD  DOME  SUCA 


cálculos  financieros 

CALCULOS  ESTADISTICOS 

FICHERO  monedas 
fiche  no  SELLOS 
FICHERO  BIBLIOTECA 
fichero  AGENDA 


los 

pro 


\  ^ 

.  r\ 

■  ;  f  \ 

1/»»^ 
(  *  j^mÉ^ i. \ 


kl  S  l)\NSK  (Dina marca) 

i  r  actuado  por  Diego  HUMERO  y  adaptado  por  Alvaro  IB.AÑLZ 


1  >*jidi>  que  muchas  de  las  llamadas  que 
recibimos  sobre  pegas  al  poner  en  marcha 
los  programas  de  la  revista  son  causadas 
por  errores  al  teclear  los  programas  frente 
a  una  minoría  causada  por  errores 
nuestros  (todo  hay  que  reconocerlo),  creo 
que  es  interesante  este  corto  programa 
que  ayudará  a  comprobar  que  lo  habéis 
tecleado  exactamente  igual  que  el  original 

liste  programa  va  a  ser  tan  estricto  con 
la  forma  de  teclear  el  programa  que  no 
permitirá  añadir  ni  quitar  ni  un  solo  espa¬ 
cio.  La  idea  y  el  programa  original  lo 
hemos  sacado  de  la  hermana  de  Com ino¬ 
doro  World  en  Dinamarca  |  RUN  DANSK), 
y  como  no  podemos  traducirlo  literal¬ 
mente  porque  nuestro  Danés  no  es  per¬ 
fecto,  voy  a  hacer  una  pequeña  traduc¬ 
ción  libre. 

Todos  los  programas  que  aparezcan  en 
la  revista  Commodore  World  (o  la  mayo¬ 
ría  si  d  espacio  no  lo  permite),  irán 
acompañados  de  una  “Suma  de  Con- 


VIC-20  ó  064 

con  o  sin  ampliación 


' — "C  4  -T ^  / 


trol’V  que  obligará  a  ceñirse  estrictamente 
al  listado  original. 

Debéis  seguir  una  serie  de  pasos  que 
permitirán  localizar  las  lineas  en  que 
cometáis  errores.  Lo  primero  que  debéis 
hacer  es  teclear  el  programa  de  control  de 
suma  y  guardarlo  en  cinta  o  disco  para 
utilizarlo  siempre.  Los  pasos  a  seguir  para 
introducir  un  programa  son: 

1.  — CARGAR  el  programa  “control  de 
suma",  que  previamente  habíais  grabado, 

2.  — 1 TECLEAR  d  programa  que  que¬ 
réis  copiar. 

3.  — SALVAR  el  programa  antes  de 
probarlo. 

4 — TECLEAR  GOTO  62000  y  contes¬ 
tar  a  las  preguntas  que  hace  el  programa 
de  control  de  suma. 


5,  — COMPARAR  las  sumas  de  cada 
linca  de  vuestro  programa  con  el  que  apa¬ 
rece  en  la  revista.  La  linca  o  lineas  que  no 
coincidan  deberéis  repasarlas,  ya  que  no 
serán  idénticas  al  original, 

6, — SALVAR  en  cinta  o  disco  una 
copia  del  programa  corregido  antes  de 
ejecutarlo. 

7,  — UTILIZAR  el  programa  que  ya 
funcionará  correctamente  con  sólo  hacer 
RUN. 

NOTA:  Posiblemente  en  este  número 
no  exisla  tiempo  material  para  preparar 
las  tablas  de  sumas  de  control  de  los  pro¬ 
gramas  publicados  antes  de  llevarlo  a 
imprenta  (dentro  de  media  hora),  pero  en 
el  próximo  será  de  gran  ayuda,  os  lo 
puedo  asegurar. 


t>2U0U  h'LM  ±um  DE  CONTROL  PtfftR  VÍC-2 
ü  C-64 

1 Ü  KkIN  T 11  [  LLk  J  PhRh  t  ¿PC  JÜUE  C BPC1QR 
DEN  NUCIR?" 

¿2u2u  INPU7 #IVIC20=0t SPCJCBMS^l"  ICO 

w:u_u  úOSÜB  *,2070 

báü40  GOTO  62240 

6205U  IF  PL>=U  THEN  6204Ü 

¿2U60  bND 

b^J?U  DEFFN  BLEk<X¿  =  PE£K(X>+25ó*P£ 
EFGí+l) 

b¿UL0  DRTR  *** 

62090  DhIh  165, 25£>  166,253, 133, u20,  1 
34.021  ,tí32.  019 

6¿i ütí  DhTR  16b, 216. 160,001,177,033. 1 
33.254,240,013 

621 lü  DrtTH  200/ 177.035, 13a, 252, 200, i 
77.035. 133,253 

b¿:l2ü  DflTH  200, 163, uuO, 133.251, 1 77,0 
35,240, üuo,024 


b2130  DhTh  101,251 -200,200 í  ¿44,  t)3b 
¿2140  DhTH  - J 

o215u  hb  ~  52332- lFüÚtóTHENHD“E¡2b 
o21¿Ú  RES1ÜKE 

6¿1?0  REmD  I*  1F  rsO"***"  THEN  t,21 
70 

¿2 i Sü  RhHD  T  IF  T!  -Hi  THEN  PuKE  Hb, 

T  hD  -  HD+1  OÜTO  62130 

o2 1 30  I FCÜ-OTHENPÜK ESG8 , l 33 

62200  FR I N  í " C LLk  J  RUNDE l bPC  3  ÚU I tkE [ ¿PC ] 

QUE C ¿PClLOtoSPC i I HPk 1 m  " 

6¿2 1  u  Pft  i  N  f  **  T V/MÚN  I T QR-0  C  SPC  3PLU1 1 ER 

=¿CSPC]INPF:E¿0RH^4,t 

62220  1NPUT  BEV 

¿2230  KEIURN 

£2240  FL  ^  0  INPUT  «LiNtHCÓPC JÍN1C 
ÍHL" f  FL  IF  FLCó  THEN  RETURN 
¿2250  LL  =  b¿53¿  INPUT  "LÍNERCbPCJ 
FÍNhL".  LL  PRINrtCLkr 
o2¿b0  IF  DLV>0  THLN  UPEN  1 , DLV 


Lió/ Commodore  World  Diciembre  1984 


bk  J.-u  IF  UEV/ü  THEN  PRINT41 : CLÚiEl 

6^2 /U  LH  5  FL  ¡  C  =  Ü  LL  =  Ú 

ENÍI 

b/woU  Hukb  2b2  t  LH- IN 1  t  LN/2t>b }  6256 

PúkL  2‘< 3 ,  LN/2S6 

62298  IFtÜ-LnHEN  SVS828  : CS^PEEK C251 

— "  -  - - - — - - - - - - 

)  LN-FNllELbAK^+l 

SUN»  IiE  CÜNTRul  BEL  PRClijRHMH  BE  CONTROL 

t,25UU  Ulú-ITHEN  bV$  £>2*32  Cb-PEEtíc¿ 

¿2U0Ú  228  h2UlÜ  15o  Ó2W28  1 7 

Sil LM-b  NXlEEi  -.2t ¿)*l 

¿2030  172  £2040  167  620  50  179 

cuJlU  U  -  LEF1  4<¡¿  1  R$tLN-l  )  +  “ [bbPC J  " 

c.¿utu  128  62uru  i  73  62ür;t<  33 

,  o/+Ltf  J  J-<  “  Tfri  '.  Cb  J  +  "  L  i  bPL  J  “h 

6209U  30  62100  38  62110  46 

t,23LU  ib  BEV-fc)  1  HtN  PRINT  Ti. 

62120  31  62130  14  62140  1 

oLJ.iü  IF  ÜtV/Éi  THEN  PRlNTItl  i  Ti , 

1  SiU  _iS  ¿21c,0  140  621/0  169 

t>2340  IF  BEV=U  THEN  C  *  C+l  II-  L>= 

*¿loV  Jl  621 3ú  1/4  o*j280  52 

3  l HfcN  PRINT  C  -  u  Cl  *  C1  +■  1 

btJ  i  ü  7  j  b/^'Ú  1 32  JU  1 

biJSrtj  Ib  LitV.-U  THEN  i  =  C+l  •  IF  L> 

¿22 4 U  149  b225Ú  1  ¡4  ¿2¿¿Ü  77 

3  then  prinui  ■  c  -  0  ;  ci  «  Ci  +  i 

o227ü  I  d  822 oü  207  0223 U  32 

Isa  b2dlü  Vó7  b2d¿Ú  131 

62330  2b u  o 2 1:40  114  ¿225U  181 

Ib  LfK=LL  MHfi  PEEKt,;:S<4/  THEH  6 

¿22oú  2vu  62370  38  623¿S  12o 

2¿ütt 

¿2381  ü 

_ 

_ _ _ _ _  _ _ __ _ _ _ _ 
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BASIC  EN  CASTELLANO 
PARA  EL  COMMODORE  64 


La  casa  Sakati'  S,  A.  de  Madrid  ha 
pinado  csic  mes  el  programa  que 
permite  trabajar  en  castellano  con  d 
Commodore  64.  A  nosotros  nos  ha 
enviado  la  versión  en  disco,  pero 
también  lo  comercializan  en  cinta. 

Este  programa  se  une  a  la  nueva  y 
creciente  ola  de  intentos  de  es  pañol  i* 
zar  los  ordenadores,  a  la  que  estamos 
asistiendo,  baste  recordar  que  el  mes 


pasado  sacamos  reseña  del  LOGO  en 
castellano  que  presentaba  otra  casa 
de  Madrid  y  Barcelona,  Parece  ser 
que  la  tendencia  actual  es  la  de  cam¬ 
bar  los  lenguajes  tradicionales  de 
programación  y  particularizar  las 
versiones  para  España, 

I  Las  instrucciones  que  acompañan 
al  programa  son  corlas,  pues  no  pre¬ 
tenden  ser  un  manual  de  programa- 
aún  en  Basic,  sino  una  sencilla  e x píl¬ 
atelo  n  de  cómo  cargar  el  programa 
,  fotifizando  los  comandos  LOAD  y 
H i  N  o  las  teclas  Sbíft  y  Stop)  y  el 
modo  de  cambiar  entre  el  español  y  el 


Basic  original,  que  se  limita  a  un  sim¬ 
ple  comando  POKE.  El  resto  de  la 
hoja  de  instrucciones  son  dos  tablas 
que  indican  los  comandos  originales 
y  su  equivalente  actual,  asi  como  los 
antiguos  y  nuevos  mensajes  de  error. 

Para  citar  un  ejemplo  de  la  traduc¬ 
ción  de  los  comandos  podemos  decir 
que  NEW  se  sustituye  por  INI, 
GOTO  por  VEAL,  STEP  por  PASO, 
RIGHTS  por  DRCHS,  INPUT  por 
INTRO,  etc. 

En  la  página  .1 1  del  número  cuatro 
de  Commodore  World  hemos  publi¬ 
cado  una  colaboración  de  Guillermo 
Caamaño  Olivares  de  Granada  que 
hacía  algo  similar,  pero  en  ella 
debíamos  escoger  los  nuevos  coman¬ 
dos  uno  a  uno  nosotros  mismos,  cosa 
que  se  hace  un  poco  pesada,  y  aque¬ 
llos  que  prefieran  tenerlo  todo  resuelto 
tienen  la  oportunidad  de  adquirir  el 
programa  que  ha  lanzado  Sakati. 

Un  pequeño  detalle  que  está  omi¬ 
tido  en  las  instrucciones  del  pro¬ 
grama  y  que  ya  advertía  Guillermo  en 
su  colaboración,  es  que  al  cambiar  el 
Basic  al  castellano  quedan  prohibidas 
automática  mente  todas  tas  variables 
que  coincidan  con  los  comandos  del 
nuevo  basie,  por  ejemplo:  no  pode¬ 
mos  utilizar  "Sr\  ya  que  es  el  equiva¬ 
lente  del  antiguo  "IF*. 

Aquellos  a  los  que  les  parezca  inte¬ 
résame  el  programa  y  deseen  adqui¬ 
rirlo  pueden  dirigirse  a: 

Sakati.  S.  A. 
Ardemans,  24 
2 SOIS  Madrid 
Tei.  (91)  256  77  94 

Otra  novedad  de  esta  casa  de  la  que 
esperamos  poder  hacer  reseña  próxi¬ 


mamente  es  un  magnifico  programa 
para  la  resolución  de  quinielas  que 
permite  imprimir  los  resultados  direc¬ 
tamente  en  el  formato  de  los  boletos 
del  patronato  o  en  papel  continuo  o 
pantalla,  pero  aún  no  han  salido  de 
imprenta  las  instrucciones  para  poder 
entender  este  programa,  y  al  ser  tan 
completo  y  lleno  de  posibilidades  he 
de  confesar  que  me  he  perdido  inten¬ 


tando  adivinar  cómo  usarlo  para  ade¬ 
lantarme  a  los  demás  y  ser  el  primero 
en  conseguir  "una  de  catorce". 

Un  secreto:  espero  que  no  se  entere 
nadie  y  yo  sea  el  único  que  acierte  el 
pleno  una  de  las  próximas  semanas, 
por  eso  prefiero  callar  la  fecha  de  lan¬ 
zamiento  de  este  programa  y  poder 
aprovecharme  de  él  yo  sotilo  sin^ 
compartido  con  nadie  más. 

X 


SOBRE  MONITORES 


En  el  SIMO  hemos  tenido  oportu¬ 
nidad  de  probar  los  monitores  de  ta 
marca  Tatung  UK  ¿Reino  Unido), 
que  distribuye  en  España  la  casa 
Alpha  Mundial  Group,  S.  A,  de 
Barcelona. 

El  monitor  de  color  en  alta  resolu¬ 
ción  es  eí  que  más  destaca.  En  primer 
lugar  por  su  definición,  que  es  de  584 
puntos  verticales  por  436  horizonta¬ 
les  en  su  pantalla  de  14",  siendo  la 
superficie  útil  para  visualízacíón  de 
275* luí  mm.  y  estando  recomendado 
para  gráficos  de  alta  resolución  y/o 
texto  en  formato  de  25  lineas  de  40 
caracteres  (ideal  para  el  Commo¬ 
dore).  Dispone  de  entradas  YUV, 
RGB  lineal  y  TTL,  además  de  la 
entrada  PAL,  pudiéndose  utilizar, 
por  tanto*  con  una  amplia  gama  de 
ordenadores  (Apple,  Sinclair,  Arras¬ 
trad,  y  por  supuesto  los  Commodore ), 

La  estabilidad  y  nitidez  de  la  ima¬ 
gen  en  pantalla  era  perfecta  (muy 
superior  a  otros  monitores),  y  además 
dispone  de  un  conmutador  en  la  parte 
trasera  que  permite  hacerlo  funcionar 
como  monitor  verde  con  mayor  reso¬ 
lución,  con  lo  que  la  vista  descansa 


más  cuando  deben  pasarse  muchas 
horas  delante  de  la  pantalla  tecleando 
programas  "serios"  sin  colores. 

Su  aspecto  físico  es  bueno,  no 
siendo  voluminoso,  y  por  ñn  lo  más 
interesante...  su  precio  es  de  sólo 
5 9. 5 ¡40  pesetas.  Creo  que  es  uno  de  los 
más  económicos  del  mercado  nacio¬ 
nal  dentro  de  sus  buenas  prestaciones. 

El  otro  monitor  era  monocromá¬ 
tico  con  pantalla  de  1 2"  verde  ant irre¬ 
flexiva  de  fósforo  P3J,  su  resolución 
era  superior  al  de  color,  ya  que  son 
900  lineas  verticales  y  está  recomen¬ 
dado  para  utilizar  hasta  con  2000 
caracteres  en  pantalla,  siendo  ideal 
para  completar  las  tarjetas  de  80 
columnas  de  todos  aquellos  que  quie¬ 
ran  destinar  su  equipo  a  aplicaciones 
más  serias.  El  precio  de  este  monitor 
es  de  25,000  pesetas. 

Ambos  monitores  de  la  marca 
Tatung  son  comercializados  por  la 
compañía: 

Alpha  Mundial  Group,  S.  A , 
Gran  Vía  Carlos  III,  86.  ó 
08028  Barcelona 
TeL  (95)  550  96  51 
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La  importancia  del  RS-232 

A  lo  mejor  ya  estás  utilizando  esta 
conexión  para  acoplar  un  VIC-Modem  a 
tu  ordenador  o  una  impresora  del  tipo 
RS-232. 

La  ampliación  más  común  del  VIC-2Ü 
o  el  C-64  es  el  modem*  que  tiene  que  ir 
conectado  a  la  salida  RS-232  para  poder 
usarlo,  Pero;  ¿qué  es  un  modem  y  cómo  es 
el  software  que  lo  acompaña? 

Un  modem  no  es  más  que  un  aparato 
que  actúa  de  interface  entre  el  ordenador 
y  un  teléfono.  De  esta  manera  un  ordena¬ 
dor  se  puede  comunicar  con  otro  ordena¬ 
dor.  El  ordenador  utiliza  un  lenguaje 
digital  que  consiste  en  rápidos  cambios  de 
voltaje  mientras  que  el  teléfono  trabaja 
con  sonidos  que  están  comprendidos  en  la 
gama  de  la  frecuencia  de  ¡a  voz.  De  ahí, 
que  el  modem  se  encargue  de  convertir  las 
señales  digitales  del  ordenador  a  señales 
acústicas  de  manera  que  se  puedan  enviar 
a  través  de  las  líneas  telefónicas. 

Así  que  jya  estamos  preparados  una 
vez  que  hayamos  conectado  el  modem! 
Pues...  no  del  todo.  Tu  ordenador  trabaja 
a  una  velocidad  demasiado  rápida  para 
las  líneas  telefónicas*  por  lo  cual  tendrás 
que  incorporar  un  programa  controlador 
que  se  encargue  de  formatear  los  datos  de 
manera  que  puedan  pasar  eficazmente  a 
la  línea  telefónica  mediante  el  modem 

Además*  tu  Commodore  habla  a  través 
de  una  versión  ampliada  del  ASCII*  y  por 
lo  tanto  si  quieres  comunicarte  con 
máquinas  que  utilicen  el  ASCII  standard* 
tendrás  que  hacer  unas  pequeñas  modifi¬ 
caciones,  Asimismo  quizás  quieras  alma* 
cenar  la  información  que  recibas  a  través 
de  tu  modem. 

Estas  tareas  las  puedes  realizar  mediante 
un  programa  de  terminal.  Un  programa 
de  terminal  es  aquel  que  formatea  datos  y 
controla  la  velocidad  mas  otra  serie  de 
factores  a  través  del  software.  Manda  una 
señal  digital  al  modem  para  convenirlas 
en  tonos  cuando  se  manden  datos*  y  hace 
lo  opuesto  cuando  estés  recibiendo  datos. 

Estableciendo  los  standard» 

¿Cómo  apareció  el  término  RS-232?  El 
término  apareció  cuando  un  grupo  de 
prestigiosos  ingenieros  establecieron  los 
standards  para  las  conexiones  necesarias 
que  permitieran  a  los  ordenadores  no  tan 
solamente  comunicarse  entre  sí,  sino  que 
también  pudieran  comunicarse  con  otros 
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Pasaporte 

al  mundo  (II) 


Amplía  tus  horizontes  soore  co».^ 
con  este  artículo  que  os  abril 
nuevas  puertas  a  tí  y  a  tu  Co™*1 
La  clave  está  en  la  puerta  del  u. 
de  tu  Commodore. 

.  í-iE.íSS.'S  S 'a  eficacia . 


ordenador.  Incluso  la  salida  que  se  utiliza 
para  conectar  el  Joystick  al  ordenador  es 
un  interface  que  nos  permite  mandar 
información  de  posidonamiento  al  orde¬ 
nador. 

La  salida  serial  (llamada  también  bus 
serial)*  es  otra  de  las  formas  corrientes 
para  conectar  periféricos  al  ordenador. 
Por  lo  general  se  utiliza  para  conectar 
unidades  de  discos  o  impresoras*  pero 
también  se  podría  usar  para  conectar 
otros  aparatos. 


Á  cualquier  ampliación  del  sistema 
l^Jkan  de  conectarse  a  tu  VIC-20  ó 
C-64  de  manera  que  se  puedan  comu¬ 
nicar  con  la  tarjeta  principal  de  proce¬ 
so  del  ordenador.  Los  fabricantes  se  ven 
libres  para  diseñar  cualquier  tipo  de 
interconexión  para  comunicar  con  la  tar¬ 
jeta  principal*  la  cual  normalmente  se 
basa  en  un  standard  ya  establecido. 

Existen  varias  puertas  de  entrada  al 
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aparatos  tales  como  las  impresoras»  uni¬ 
dades  de  disco  y  otros  periféricos.  Des¬ 
afortunadamente  el  RS-232  no  es  el  único 
standard.  Existen  otros  standards  esta¬ 
blecidos  tal  como  el  IEEE-488.  El  VIC-20 
y  el  064  no  pueden  llegar  a  estos  stan- 
dards  sin  algún  complemento  de  ayuda. 

En  realidad,  las  máquinas  de  Commo- 
dore  no  son  capaces  de  realizar  una  ver¬ 
dadera  comunicación  RS-232  ya  que  el 
standard  Commodore  RS-232  es  ligera¬ 
mente  distinto  al  verdadero  standard  RS- 
232.  pero  las  limitaciones  se  solventan 
fácilmente.  Ocurre  lo  mismo  que  con  las 
diversas  variaciones  dd  viejo  standard 
"Kansas  City**  para  d  almacenamiento 
de  dalos  sobre  cassettes. 

Esto  se  debe  a  que  gran  parte  de  la 
tecnología  de  circuitos  integrados  utiliza¬ 
dos  actualmente  en  los  ordenadores 
emplean  una  lógica  de  Transistor-Tran¬ 
sistor  (TTL).  Los  aparatos  TTL  represen¬ 
tan  los  dos  estados  binarios,  dando  una 
señal  positiva  de  5  V  para  representar  el  I 
y  una  señal  de  tierra,  OV,  para  represen¬ 
tar  d  número  binario  0. 

La  casa  Commodore  decidió  utilizar 
las  señales  TTL  en  sus  ordenadores  para 
las  salidas  RS-232.  Los  verdaderos  stan- 
dards  dd  RS-232  son  de  señales  positivas 
entre  9  y  12  V  para  el  1  y  una  señal  nega¬ 
tiva  entre  9  y  1 2  V  para  el  0.  En  el  mercado 
existen  varios  interfaces  que  se  encargan 
de  solventar  este  pequeño  problema  de 
diferencia  de  voltajes  en  caso  de  que  se 
deseara  conectar  algún  aparato  que  se  rija 
por  el  standard  de  +9-12  V  y  — 9- E 2  V. 

Si  utilizas  un  producto  fabricado  por  la 
casa  Commodore,  tal  como  el  VI C- 
Modem,  entonces  no  tienes  que  moles¬ 
tarte  en  ajustar  d  voltaje.  Sin  embargo,  si 
se  desea  utilizar  un  producto  que  no  haya 
sido  fabricado  por  Commodore,  entonces 
lo  más  probable  es  que  necesitara  un 
interface  que  se  encargue  de  neutralizar  la 
diferencia  de  voltaje. 

Físicamente,  las  conexiones  a  la  salida 
RS-232,  se  hacen  con  un  conector  de  24 
patillas.  Estas  pueden  ser  algo  difíciles  de 
conseguir.  (En  la  tabla  3  hay  una  direc¬ 
ción  en  donde  se  podría  conseguir  un 
conector  de  este  tipo).  Si  no  eres  capaz  de 
encontrar  alguna  tienda  que  ios  venda, 
siempre  te  quedará  la  solución  de  poder 
fabricarlo  tu  mismo.  Eso  sí,  tendrás  que 
lomar  las  debidas  precauciones  cuando  lo 
instales  asegurándote  que  las  patillas 
estén  alineadas  adecuadamente.  ¡Siempre 
que  realices  esta  operación  asegúrate  que 
d  ordenador  esté  desenchufado! 


La  sentencia  OREN  es  la  siguiente; 

OREN  Ifn,2,0,  {Registro  de  control) 
(registro  de  comando)  {Baudios  bajos 
opcional)  (Baudios  altos  opcional).  A 
continuación  explicaré  lo  que  significa 
esta  sentencia. 

Al  igual  que  con  todos  los  ficheros,  se 
ha  de  elegir  un  número  de  fichero  entre  el 
1  y  el  255  (lfn).  En  caso  de  que  se  elija  un 
número  superior  a  128,  un  símbolo  de 
“line  feed”  será  incorporado  cada  vez  que 
se  dé  al<CRETURN¡>,  Podría  ser  que  no 
siempre  se  desea  esta  característica  por  lo 
cual  tendría  que  elegir  números  inferiores 
al  128. 

El  número  de  fichero  tiene  a  continua¬ 
ción  un  número  de  aparato  (2),  que,  en  el 
caso  del  RS-232  será  siempre  el  número  2, 
Esta  es  Ja  señal  que  indica  al  programa 
que  se  está  abriendo  un  canal  RS-232.  A 
continuación  tenemos  el  O  que  es  simple¬ 
mente  un  número  que  guarda  esta  posi¬ 
ción.  La  parte  fundamental  y  más  im¬ 
portante  en  el  proceso  de  colocar  los 
parámetros  viene  en  las  dos  próximas  sen¬ 
tencias  —Jos  registros  de  control  y 
comando. 


Registro  de  Control 

El  registro  de  control  consiste  en  un 
registro  de  un  byie  (8  bits)  que  almacena 
varios  de  los  parámetros  necesarios  para 
la  utilización  de  un  canal  RS-232.  Existe 
una  imagen  del  registro  de  control  que 
reside  en  la  localización  de  memoria  659 
decimal. 

Los  chips  utilizados  para  la  salida  RS- 
232  en  el  VIC-20  no  son  iguales  a  los  del 
C-64,  El  VIC-20  utiliza  el  VIA  (adaptador 
de  interface  versátil),  un  chip  6522»  mien¬ 
tras  que  el  C-64  utiliza  un  CIA  (adapta¬ 
dor  de  interface  complejo)*  un  chip  6526. 
Los  registros  de  control  y  comando  viven 
dentro  de  estos  chips,  pero  para  propósi¬ 
tos  de  programación,  ponemos  una  ima¬ 
gen  duplicada  de  los  registros  de  los  chips 
en  las  tarjetas  dentro  de  la  memoria  para 


cuantos 


comandos 


básicos 


ya  estarás 


Velocidad 

En  primer  lugar  habremos  de  definir  el 
valor  de  los  baudios  (la  velocidad  de 
transmisión),  lo  que  podemos  considerar 
como  el  control  de  velocidad  del  canal 
RS-232.  Esto  es  un  velocímetro  que  indica 
al  ordenador  la  rapidez  con  que  ha  de 
mandar  y  recibir  la  información  que  pasa 
a  través  dd  canal  RS-232, 

EJ  control  de  velocidad  se  asigna  en  los 
primeros  cuatro  bits  del  registro  de  con¬ 
trol,  No  hay  que  olvidar  que  al  contar  los 
bits,  siempre  se  comienza  en  el  O  del  bit 
que  esté  más  a  la  derecha,  yendo  hacia  la 
i  z  q  u  i  erda ,  Los  prog  ra  m  as  d  e  $ of t  wa  re  d  e  I 
ordenador  ya  tienen  incorporados  los 
valores  de  baudios  más  comunes.  La 
mayoría  de  vosotros  ya  estaréis  familiari¬ 
zados  con  Jos  300  baudios,  una  velocidad 
muy  común  en  las  comunicaciones  vi  a 
modem»  y  con  los  1.200  baudios»  otra 
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preparado 


escribir 


el  software 


de  terminal 


Función  OPEN 

La  clave  de  la  utilización  de  las  funcio¬ 
nes  RS-232  está  en  la  sentencia  OPEN  del 
programa  controlador  de  comunicaciones 
que  la  casa  Commodore  ha  facilitado  con 
sus  ordenadores.  Esta  semencia  es  pare¬ 
cida  a  la  de  abrir  un  fichero  de  disco  o 
cassette,  sólo  que  en  este  caso  la  parte  del 
fichero  que  se  abre  es  la  oficina  electró¬ 
nica  del  ordenador,  que  viene  etiquetada 
RS-232. 


necesitarás 


comunicarte 


a  través 


salida 


Pasaporte  ai  mundo - - 

L  velocidad  común  para  la  transmisión  de 

1  datos. 

Pero  antes  de  continuar,  definamos  un 
baudu>,  El  valor  de  baudios  es  el  número 
total  de  bits  que  se  mandan  en  un 
segundo.  Este  término  se  abrevia  a  bps. 

Los  códigos  ASCII  existen  en  versiones 
de  8  bits  y  7  bits. 

Suponiendo  que  se  utilíce  el  ASCII 
standard  de  siete  bits;  cada  símbolo  que 
se  transmita  consistirá  en  7  bits,  más  uno 
o  dos  bits  de  parada,  lo  que  viene  a  decir 
una  transmisión  de  400  palabras  por 
minuto  a  una  velocidad  de  300  baudios.  A 
una  velocidad  de  1 .200  baudios  se  pueden 
transmitir  casi  tres  veces  esta  cifra  de 
palabras. 

A  medida  que  incrementa  la  velocidad, 
también  lo  hace  la  anchura  de  banda  de  la 
señal  de  dalos.  Esto  requiere  más  electró¬ 
nica  para  recobrar  la  señal.  lambién 
implica  la  necesidad  para  una  unión  de 
más  calidad  entre  el  ordenador  y  el  apa¬ 
rato  con  el  que  se  esté  comunicando.  A 
I  menudo  aparecen  problemas  cuando  se 
utiliza  una  linea  telefónica  standard. 

Para  darte  una  idea  de  las  diferentes 
anchuras  de  banda,  consideremos  que 
una  señal  en  código  morse*  tecleada  len¬ 
tamente  (a  una  velocidad  de  10  palabras 
por  minuto)  tiene  una  anchura  de  banda 
teórica  de  unos  pocos  ciclos  mientras  que 
el  equivalente  digital  tiene  una  anchura  de 
banda  de  unos  cientos  de  miles  de  ciclos. 

La  tabla  I  muestra  los  baudios  imple- 
mentados  en  el  VIC-20  y  del  C-64.  Nota 
que  aunque  se  hayan  puesto  velocidades 
de  más  de  2.4(H)  baudios,  estas  no  son 
asequibles  por  una  configuración  nor¬ 
mal  del  VIC-20  o  del  'C-64, 

El  bit  4  (el  quinto  bit)  no  se  utiliza.  Los 
bits  5  y  6  definen  el  tamaño  de  la  palabra. 
Las  transmisiones  RS-232son  seriales.  Es 
!  decir,  que  se  manda  un  dato  tras  otro.  (El 
otro  método  de  comunicación  es  paralelo). 

Se  seleccionan  tamaños  de  palabra  de 
5,  6,  7  u  8  bits.  La  tabla  2  nos  muestra  las 
posibles  opciones. 

En  el  último  bit,  el  séptimo,  se  indica  si 
se  desea  utilizar  uno  o  dos  bits  de  parada. 
Un  0  indica  un  bit  de  parada  y  un  l  indica 
dos  bits  de  parada.  Esta  es  la  señal  de 
sincronización  entre  dos  aparatos  de 
manera  que  sepamos  cuándo  un  carácter 
termina  y  comienza  el  próximo. 

También  existen  bits  de  comienzo. 
Cada  carácter  que  se  transmite  contiene 
un  bit  de  comienzo  incorporado.  Un  bit 
de  comienzo  es  standard  y  por  lo  tanto  no 
hace  falta  decirle  al  ordenador  cuántos 
hay  que  mandar.  {Esta  función  viene  pre¬ 
programada.) 

El  origen  de  los  bits  de  comienzo  y 
parada  es  anterior  a  la  segunda  guerra 
mundial,  cuando  todos  los  medios  de 
transmisión  de  datos  eran  mecánicos  y 
funcionaban  a  base  de  varios  engranajes. 
Debido  a  La  falla  de  eficacia  de  estos  apa¬ 
ratos»  era  necesario  mandar  señales  de 
sincronización  al  principio  y  al  final  de 
I  cada  carácter. 

Con  nuestra  tecnología  actual  no  hace 
falta  utilizar  los  bits  de  parada  y 
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comienzo  ya  que  tu  ordenador  es  capaz 
de  sincronizarse  por  sí  solo.  Sin  embargo, 
casi  todos  los  métodos  actuales  de  trans¬ 
misión  utilizan  un  bit  de  comienzo  y  uno 
o  más  de  parada. 

Los  otros  parámetros  que  controlarás, 
están  dentro  del  registro  de  comando. 

Registro  de  Comando 

Una  vez  vistos  cómo  los  baudios» 
tamaño  de  palabras  y  bits  de  parada  son 
asignados  dentro  del  registro  de  control; 
veremos  ahora  lo  que  podemos  hacer  uti¬ 
lizando  el  registro  de  comando. 

En  realidad  no  se  ha  de  hacer  nada  con 
el  registro  de  comando  ya  que  Com  mo¬ 
do  re  convenientemente  ha  puesto  todos 
sus  valores  (todos  ceros)  para  el  registro 
de  manera  que  concuerdan  con  La  mayo¬ 
ría  de  los  requisitos  necesarios  para  la 
comunicación  de  datos,  Al  igual  que  en  el 
registro  de  control,  en  este  registro  tam¬ 
bién  existe  una  imagen  de  un  bytc  del 
registro  presente  en  la  dirección  decimal 
660. 

Consideremos  cómo  se  comunican 
entre  si  los  ordenadores.  Imagínate  a  dos 
personas,  una  habla  rápidamente  y  la  otra 

En 

_ realidad 

los  ordenadores _ 

Commodore  _ 

_  no  _ 

_ son _ 

_ capaces _ 

de  realizar  _ 

una _  _ 

verdadera  _ 

comunicación 

CS-232, 

_ pero _ 

esta _ 

limitación 

se _ _ _ 

_ solventa  _ 

fácilmente. 


persona  habla  como  un  disco  de  45  rpm, 
que  se  esté  tocando  a  33  rpm.  Aunque 
hablen  el  mismo  lenguaje,  la  persona  que 
habla  lentamente  tendrá  dificultades  en 
entender  a  la  que  hable  rápidamente.  Por 
lo  tanto  llegan  a  un  acuerdo  en  que  la 
persona  más  lenta  dará  la  mano  a  la  per¬ 
sona  que  hable  aprisa  cuando  esté  prepa¬ 
rada  a  escuchar  la  próxima  frase.  Un  cero 
en  el  bit  i)  en  la  dirección  660  indica  darse 
La  mano  por  tres  l rases,  y  un  uno  indica 
darse  la  mano  en  x-l  rases. 

Los  bits  1 ,  2  y  3  no  se  utilizan.  El  bit  4 
es  importante,  ya  que  se  decide  a  través  de 
este  si  el  ‘'dúplex"  deberá  de  ser  un 
dúplex  entero  o  un  serni  dúplex.  La 
comunicación  normal  de  datos  permite 
una  transmisión  simultánea  de  datos  en 
dos  sentidos  a  la  que  se  suele  llamar  una 
operación  dúplex  entera.  Si  sólo  trans¬ 
mite  un  aparato  a  la  vez,  entonces  tene¬ 
mos  una  operación  semi  dúplex. 

La  forma  de  imple  mentar  un  dúplex 
entero  en  su  ordenador  es  poniendo  el  bit 
4  en  cero.  Un  uno  indicaría  que  se  desea 
una  operación  semi  dúplex. 

Consideremos  la  paridad.  La  paridad, 
o  su  ausencia,  se  logra  mediante  los  bits  5, 

6  y  7.  La  tabla  3  nos  muestra  las  opciones 
disponibles.  Los  chequeos  de  paridad  son 
uno  de  los  métodos  utilizados  para  asegu¬ 
rarnos  de  que  la  información  transmitida 
se  reciba  correctamente  y  sin  errores. 

Se  ejecuta  un  simple  chequeo  en  los 
datos  y  se  calcula  si  se  tiene  un  número 
par  o  impar  de  binarios  !  en  cada  pala¬ 
bra.  Si  utilizamos  una  paridad  par, 
entonces  el  número  total  de  bits  debería 
de  ser  un  número  par.  Si  no  lo  es,  enton¬ 
ces  cambiamos  el  bu  de  paridad  a  l  de 
modo  que  el  total  resulte  ser  par.  La  pan¬ 
dad  impar  seria  el  mismo  proceso  sólo 
que  el  total  habrá  de  ser  impar. 

El  comando  OPEN  necesitará  una 
explicación  algo  más  detallada.  Para  ello 
utilizaremos  un  ejemplo: 

OPEN  3,2, O.CHR«6+32)+CHR$(32+ 128) 

¿De  dónde  ha  salido  el  CHR$?  ¡No  te 
asustes!  Como  ya  hemos  comentado,  se 
ha  abierto  un  fichero  (el  3),  con  un  apa¬ 
rato  RS-232  (el  2)  y  en  el  canal  cero  (el  0). 

I  lasta  ahora  bien.  La  siguiente  pane  de  la 
sentencia  deberá  ser  La  de  los  valores  del 
registro  de  control. 

El  CHR$  (6+32)  quiere  decir  que  se 
desea  poner  Los  bits  en  el  registro  de  con¬ 
trol  que  correspondan  a  los  decimales  6  y 
32.  La  conversión  del  6  al  binario  de  01  lü 
(bits  i  y  2).  EL  decimal  32  se  convierte  en 
el  binario  LGQO00  (bu  número  5).  Si  miras 
las  tablas  verás  que  cuando  se  elijan  los 
bits  1  y  2  se  está  indicando  una  operación 
de  300  baudios.  El  bit  5  por  si  solo  indica 
que  se  utilizarán  palabras  de  siete  bits. 
Esto  ya  comienza  a  parecerse  a  un  pro¬ 
grama  para  un  módem! 

A  continuación  tenemos  CHR5(32+128). 
Esta  es  la  información  para  el  registro  de 
comando.  Siguiendo  el  mismo  proceso 
anterior»  e!  32  pasa  a  ser  el  número  bina* 
rio  100000  (bit  5)  y  el  128  pasa  a  ser  d 
número  binario  10000000  (bit  7).  Si  miras 
la  tabla  3,  verás  cómo  esta  combinación 


¡INCREIBLES  TARJETAS 
PARA  COMMODORES  64  Y  VIC-20 
DE  80  COLUMNAS! 


LA  TARJETA  DE  64K  ES  LA  PERFECTA  COMBINACION  PARA  LA  TARJETA  DE  40/80  COLUMNAS: 

-  Puede  escoger  entre  22/40/80  columnas  y  obtiene  31743  bytes  libres!?! 

-  El  sofware  del  EPROM  de  la  raneta  le  permite  utilizar  todos  los  comandos  de  ficheros  (QPEN.  CLQSE,  PRINT.  INPUT  GET,  SAVE 
and  LOADI  con  ios  31232  Bytes  de  Memoria  -oculta»,  lo  que  produce  la  sensación  de  qué  hay  8  cassettes  super  rápidos 
conectados  a  su  Vic-20  Imagínese,  menos  de  1  segundo  para  guardar  28  K!» 


* 


Tarjeta  COMMODORE  84 
80  columnas 


Tarjeta  VIC-20 
Ampliación  de  memoria 
64  K  -  RAM 

Slots  de  expansión 
para  VIC-20  y  64 
de  2  y  5  para  conexión 
de  tarjetas 


Tarjeta  VIC-20  40/80  columnas 


DISTRIBUIDORES  PARA  TODA  ESPAÑA 


PEDIDOS 


'  DISTRIBUIDORES 
Y  PARTICULARES 

C/Tusset,  8  -  ENTRESUELO  2a 
Teléf.:  218  02  93 
08006  BARCELONA 


FERRE  -HflOPET  /.A. 


¡ATENCION! 

SOFTWARE  80  COLUMNAS 


AGENDA  80  FMD 

Sin  duda  la  mejor  Agenda  Personal  creada  para  el 
CBM-64,  y  a  80  Columnas. 

Opciones  ALTAS,  CONSULTAS  (pantalla  o  impresora}, 
MODIFICAR,  BAJAS,  LISTADOS  (pantalla  o  impresora), 
ONOMASTICAS  Esta  última  opción  le  permite  visualizar 
el  calendario  de  un  mes  cualquiera  de  un  año  cualquiera. 
Le  señala  las  fechas  en  que  hay  alguna  onomástica  y  a 
continuación  le  índica  el  tipo  y  de  quién  es  la  onomástica. 
At  inicio  del  programa  le  indica  si  existe  alguna  onomás¬ 
tica  en  el  día  de  hoy.  Consultas  por"  Número,  nombre, 
calle,  población.  Dio.  postal,  santo,  y  cumpleaños 


BfBUO  80  FMD 

Archive  su  biblioteca  y  consulte  luego  por  5  conceptos 
diferentes;  Número,  Título.  Autor,  Clasificación  y  Grupo. 
Opciones  Menú  ALTAS,  CONSULTAS  (pantalla  o  impre¬ 
sora),  MODIFICAR,  BAJAS,  LISTADOS  (pantalla  o  impre¬ 
sora!.  ¿Quiere  saber  los  libros  que  tiene  que  tratan  de 
Economia?  Simplemente  utilice  la  opción  CONSULTAS  y 
obtendrá  un  listado  de  sus  libros  de  Economía, 


DISCO  80  FMD 

Archive  su  Discoteca  y  consulte  luego  por  5  conceptos 
diferentes:  Número.  Título,  Cantante/grupo,  Editora  y  Cla¬ 
sificación.  Las  fichas  le  permiten  especificar  las  canciones 
contenidas  en  el  disco.  La  opción  CONSULTAS,  le  permite 
conocer  todos  los  discos  que  tienen  un  concepto  en 
común.  Por  ejemplo,  discos  de  los  Beatles 

REST  80  FMD 

Sólo  para  gastrónomos.  Consulta  los  Restaurantes  por 
Número,  Nombre,  Población,  Precio  por  Persona,  Platos 
recomendados.  Clasificación  y  Cocina.  Las  opciones  del 
Menú  son;  ALTAS,  CONSULTAS  (pantalla  o  impresora), 
MODIFICAR,  BAJAS,  LISTADOS  (pantalla  o  impresora). 
Ten  tu  propia  guía  de  los  restaurantes  que  has  visitado. 

CINE  80  FMD 

Sólo  para  cinefilos.  Ten  tu  propio  archivo  de  películas  y 
consulta  por  Número,  Director,  Productor,  Fotografía, 
Música,  Actores,  Actrices,  Clasificación  y  Grupo.  Opcio¬ 
nes  del  Menú;  ALTAS,  CONSULTAS  (pantalla  o  impre¬ 
sora),  MODIFICAR,  BAJAS,  LISTADOS  (pantalla  o 
impresora). 


PROXIMAMENTE  ESTOS  MISMOS  PROGRAMAS  PARA  CASSETTE  Y  40  COLUMNAS. 


quier  dirección  en  tu  ordenador  por  lo 
que  podría  ser  interesante  guardarlo 
como  programa  de  utilidad. 


indica  Ja  marca  transmitida  y  que  se  anula 
el  chequeo  de  paridad. 

Llegados  a  este  ponto,  tan  solo  te  harán 
falta  unos  cuantos  comandos  básicos 
antes  de  que  estés  listo  para  escribir  tu 
software  de  terminal  que  necesitarás  para 
comunicarte  a  través  de  la  salida  RS-232. 

Los  demás  comandos  asociados  con  eí 
canal  RS-232  (CLOSE,  CMD,  INPUT 
üET  tf#  y  PRINT  #)  funcionan  todos  de 
manera  parecida  a  como  funcionan  con 
cualquier  fichero. 

El  programa  del  listado  I  está  diseñado 
para  ser  una  ayuda  en  el  aprendizaje  del 
uso  de  la  sentencia  OPEN  con  la  salida 
RS-232.  Cuando  el  programa  esté  car¬ 
gado,  podrás  ver  el  chip  de  control  y  los 
registros  de  comando  cuando  se  establez¬ 
can  para  unos  parámetros  que  varíen. 

Para  mantener  el  programa  lo  más  sen¬ 


cillo  posible,  pon  la  sentencia  OPEN  en  la 
línea  10.  Si  ejecuta  el  programa  respon¬ 
diendo  a  las  preguntas  de  direción  con 
659  y  660,  podrás  ver  los  registros.  Este 
programa  puede  utilizarse  para  ver  cual- 


Bit  0  —  S¡  es  cero:  Tres  frases 
Si  es  uno:  X  frases 

Bits  L  2  y  3  no  se  utilizan 

Bit  4  —  Si  es  cero  0*se  implementa  operación  dúplex 
Si  en  I£>  operación  medio  dúplex. 


ABLA  3 


6  5  PARIDAD 

0  0  Paridad  anulada 

0  1  Paridad  impar 

I  0  No  definida 

I  I  Paridad  par. 

II  0  No  definida 

0  í  Marea  transmitida,  paridad  anulada 
1  0  No  definida 

I  I  Espacio  transmitido,  paridad  anulada 

El  conector  de  24  agujas  tal  como  el  Sullins  06SUL1224E5,  se  puede  obtener 
Priority  One  Electronics,  9161  Deering  Ave,,  ChateworÜt,  CA  9131 K 

OPCIONES  DE  PARIDAD 


150  ÍF  A$  C>“ Y”  THEN  END 
160  GOTO  30 

500  ROS^'O’^RlS— VI0',:R2S=“0”:R3$-“0“;R4$“I"0”: 

R5$“"0",:R6$=tl01":R7$=“0” 

505  IF  I  AND  1  THEN  RQ$="\" 

510  IF  1  AND  2  THEN  Rl$=“l" 

520  IF  1  AND  4  THEN  R2$-“P 
530  IF  I  AND  8  THEN  R3$=‘T* 

540  IF  I  AND  16  THEN  R4$="l” 

550  IF  l  AND  32  THEN  R5$=4T 
560  IF  I  AND  64  THEN  R6S=lM" 

570  IF  I  AND  128  THEN  R7$=“I” 

580  RETURN 

600  REM  ******************** 

610  REM  * 

620  REM  * 

630  REM  *  JIM  GRUBBS 
640  REM  *  PO  BOX  3042 
650  REM  *  SPRÍNCFIELD 
660  REM  *  IL. 62708 
670  REM  * 

680  REM  ******************** 

/ Cómo  utilizar  la  sentencia  OPEN  con  una  salida  RS-232 


5  REM  INSERTAR  LA  SENTENCIA  OPEN  EN 
LA  LINEA  10. 

10  OPEN  3,2,0,CHR$(6+32)+CHR$(32+128) 

20  REM  SETS  SCREEN  FOR  C-64  ONLY:POKE 
53280,  LPOKE  5328  í,i: PRINT"  (CTRL  IJ" 

30  PRINT  “  ÍSHFT  CLR)  {CRSR  DN]  REGISTER 
PEEKER" 

40  PRINT  “  {CRSR  DN]  ENTER  THE  ADDRESS" 
42  PRINT  “(IN  DECIMAL)*’ 

45  PRINT  “OF  THE  REGISTER" 

50  PRINT  “YOU  W1SI I  TO  VIEW" 

60  INPUT  R 

70  I=PEEK(R):PRINT  “{CRSR  DN}  THE  CU- 
RRENT  DECIMAL"; PRINT  “CONTENT  IS:”;I 
80  GOSUB  500 

90  PRINT  "{CRSR  DNj'THE  BINARY  LAYOUT 
IS;” 

100  PRINT:PRINT  R7$+R6S+R5$+R4$+R3$+R2$+ 

R1S+R0S 

110  PRINT  “{CRSR  DN}  DO  YOU  WISH  TO 
VIEW" 

130  PRINT  “ANOTHER  REGISTER  (Y/N)” 

140  GET  A$:IF  AS="’’  THEN  140 
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TABLA  2 

6  5 

Tamaño 

palabra 

0  0 

8  Bit 

0  1 

7  Bit 

I  0 

6  Bil 

1  l 

5  Bil 

Bit  4  No  se  utiliza 

Bit  7  0= 

L  bit  parada 

1= 

2  bil  parada 

OPCIONES  PARA  EL  TAMAÑO 

DE  PALABRAS 

TABLA 

1 

3 

2 

1 

0  Velocidad  baudios 

0 

ü 

0 

0 

Usuario 

0 

0 

0 

i 

50 

baud 

0 

0 

l 

0 

75 

baud 

0 

l> 

I 

I 

no 

baud 

0 

l 

0 

0 

134,5 

baud 

0 

1 

0 

I 

150 

baud 

0 

1 

1 

0 

300 

baud 

0 

1 

1 

1 

600 

baud 

l 

ft 

o 

0 

1200 

baud 

í 

0 

0 

1 

1800 

baud 

i 

0 

1 

0 

240Ü 

baud 

I 

0 

1 

1 

3600 

baud 

1 

1 

0 

0 

4800 

baud 

1 

1 

Q 

1 

7200 

baud 

I 

I 

1 

0 

9600 

baud 

1 

1 

I 

l 

19200 

baud 

BAUDIOS  IMPLE  MENTADOS 

EN  EL  VIC-20  Y  C-64 

MUSICA  CON  COMPUTADOR 
con  el  Teclado  “MUSIC  64” 

El  teclado  "MUSIC  64”  se  conecta  direc¬ 
tamente  al  COMMODGRE  64, 

Se  puede  emplear  como  sin tet izado r 
monofónico  o  bien  como  teclado  de  órgano 
polifónico.  Para  ello  se  necesita  lo  siguiente; 

•  Un  COMMODORE  64. 

•  Un  vídeo  monitor  o  un  receptor  de 
televisión* 

•  Y  una  unidad  FLOPPY  DISK  o  de 
cassettes. 

ALBAREDA  le  proporciona  a  usted: 

•  Un  teclado  de  4  octavas  de  Do  a  Do. 

•  Un  adaptador  para  realizar  el  empalme 
dei  teclado  con  el  computador. 

•  EJ  software  necesario. 


EL  SINTETIZADOR 
MONOFONICO 


La  relación  de 
cuales  se  dispone, 
monitor  y  son  los 


Trompeta 

Brass 

Clarinete 

Campanas 

Flauta 

Guitarra 

Wha-Bras 

(cobreswha) 


los  instrumentos  de  los 
está  indicada  en  el  vídeo 
siguientes; 

7  Instrumentos  de 
cuerda  (cuerdas) 

8  Piano 

9  Organo  eléctrico  I 
A  Organo  eléctrico  IJ 
B  Acordeón 

C  Random 
ísimetizadur} 


(/Ibareda  ) 


Modificaciones  paramétricas 

F1  para  alcanzar  el  parámetro  siguiente. 
F3  para  regresar  al  parámetro  precedente. 
F5  para  aumentar  el  valor  del  parámetro 
elegido, 

F7  para  disminuir  el  valor  del  parámetro 
elegido* 

EL  TECLADO  DEL 
ORGANO  POLIFONO  í 

La  relación  de  los  instrumentos  de  los 
cuales  se  dispone,  está  indicada  en  el  vídeo 


monitor  y  son  los  siguientes: 

1  Spinete  4  Flauta 

2  Acordeón  5  Banjo 

3  Campanas  tubulares 


Modificaciones  paramétricas 


Fl  Ataque 
F3  Declive 
F5  Sostener 
F7  Soltar 


F2  Volumen 
F4  Traslado 
F6  Forma  de  la  onda 
F8  Ciclo  de  la  operación 


i~ 


Deseo  recibir  información  completa  del  MUSIC-64  sin  ningún  compromiso 
por  mi  parte: 


Nombre 


Dirección  . . . . . 

Teléf:  Ciudad  . . 

CP.  . . .  Provincia 

Soy  distribuidor...  O 


Soy  particular...  □ 


(*)  Marcar  con  un  asterisco  lo  que  interese. 


INSTRUMENTOS 
Y  ACCESORIOS  MUSICALES 


C/.  Carmen,  19 

TARREGA  (Lérida)  -  Teléfonos  (973)  31  04  02  -  31  23  51 


Viaja,  juega  y  aprende  a  la 
vez*  ¿Quién  da  más?  Echamos 
un  cable  a  los  chavales  (que  a 
veces  la  geografía  resulta  un 
poco  pesada)  y  a  los  padres 
(que  más  de  un  patinazo  se 
habrán  pegado)* 


Esto  es  un  juego,  que  no  se  equivo¬ 
que  nadie,  pero  de  paso  servirá 
para  aprender  capitales*  ciudades, 
provincias*  etc.  Hay  dos  listados*  uno 
para  el  C-64  y  otro  para  el  VIC-2Ü,  y  otras 
líneas  Data  que  van  aparte  que  sirven 
para  Jos  dos.  Las  líneas  Data  en  el  listado 
para  el  VIC-2Ü  (provincias  de  España) 
sirven  también  para  el  C-64*  y  las  del  lis¬ 
tado  para  el  C-64  (capitales  y  ciudades  de 
Europa)  sirven  para  el  VÍC-2Ü.  En  el  lis¬ 
tado  para  las  provincias  españolas  tienes 
que  identificar  las  provincias  que  corres¬ 
ponden  a  los  lugares  que  descienden  por 
la  pantalla.  En  ci  listado  para  capitales  y 
ciudades  de  Europa*  tienes  que  identificar 
el  país.  Las  líneas  Data  corresponden  ai 
Continente  Americano*  en  que  de  nuevo, 
tú  tienes  que  identificar  la  capital  o  ciu¬ 
dad  importante  y  teclear  el  nombre  del 
país. 

Bueno,  ahora  vamos  a  jugar  para  que 
puedas  ver  cómo  funciona  esto  en  la  prác¬ 
tica.  Como  esto  tiene  que  ver  con  ciuda¬ 
des*  lo  que  aparece  en  ta  parte  inferior  de 
la  pantalla  es  una  línea  de  rascacielos  y 
edificios  grandes.  Los  nombres  de  los 
lugares  empiezan  a  caer  de  tres  en  tres  a 
diferentes  velocidades  y  si  uno  llega  a 
tocar  los  rascacielos  pierdes  una  vida.  Si 
esto  ocurre  tres  veces  perderás  el  juego. 
Para  evitar  que  un  lugar  toque  el  suelo 
tienes  que  teclear  el  nombre  de  la  provin¬ 
cia  o  país  (según  el  listado  que  estás 
usando)  más  Return.  Si  aciertas*  el  nom- 


Las  preguntas 


bre  que  has  eliminado  sera  sustituido  por 
otro,  y  los  tres  empezarán  de  nuevo  a  des¬ 
cender  por  la  pantalla.  Si  eliminas  25, 
ganas  el  juego. 

Control  del  cursor 

Las  preguntas  y  respuestas  utilizadas 
en  este  programa  se  almacenan  de  dos  en 
dos  en  un  “string'*  de  *‘arrays".  En  esta 
caso,  el  “array”  se  llama  GEO$(ROW,- 
COL),  donde  se  carga  cada  país/  provin¬ 
cia/ciudad  (por  ejemplo,  Portugal- Lisboa* 
Vizcaya-Bilbao), 

En  la  presentación  de  las  preguntas,  se 
han  definido  tres  columnas  en  la  pantalla, 
en  las  columnas,  L  15  y  25  (las  columnas 
t.  ó  y  11  en  ei  V1O20).  Los  nombres  de 
los  lugares  no  salen  de  estas  columnas, 
aunque  las  filas  donde  aparecen  aumenta¬ 
rán  a  medida  que  van  bajando  por  la 
pantalla. 

Se  ha  empleado  un  método  bastante 
interesante  para  que  los  nombres  de  los 
lugares  aparezcan  en  pantalla.  Tanto  el 
C-64  como  el  VIC-20  requieren  unas  ope¬ 
raciones  bastante  complicadas  para  reali¬ 
zar  las  funciones  que  otros  ordenadores 
llevan  incorporadas. 


respuestas 


utilizadas 


se  almacenan 


arrays 


array 


se  llama 


GEO$ 


ROWj-COL 


donde 
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Por  ejemplo,  algunos  ordenadores  te 
permiten  desplazar  el  cursor  a  una  posi¬ 
ción  determinada  para  empezar  a  escribir 
el  siguiente  carácter  en  la  misma  posición 
mediante  una  sentencia  dada,  como 
puede  ser  PRINT  @  o  LOCATE.  Se  pre¬ 
fiere  esta  ultima  porque  el  comando 
LOCATE  te  permite  especificar  la  fila  y  la 
columna  donde  quieres  situar  el  cursor. 

Con  los  primeros  ordenadores  Radío 
Shack,  los  IBM  y  hasta  los  Spectrum, 
puedes  entrar  PRINT  @  en  cualquiera  de 
más  de  1000  posiciones  de  pantalla.  Por 
ejemplo: 

10  PRINT  @  0,  “HOLA” 

20  PRINT  @  64*  “HOLA” 

De  esta  forma  se  escribe  HOLA  en  la 
fila  L  columna  1  y  la  fila  2,  columna  I  de 
la  pantalla.  Esto  no  es  lo  ideal,  porque 
tienes  que  calcular  cada  posición  inicial 
en  la  pantalla.  Podrías  comparar  esto  con 
la  operación  de  introducir  un  carácter 
mediante  un  Poke  en  la  memoria  de  pan¬ 
talla  en  los  ordenadores  Com modere.  Por 
ejemplo: 

10  POKE  Ptl 
20  POKE  P+4ÜJ 

Si  P  hubiera  sido  definido  previamente 
en  el  programa  como  el  principio  de  la 
memoria  de  pantalla,  la  letra  A  se  hubiera 
introducido  mediante  un  Poke  en  la  fila  1, 
columna  1,  y  fila  2,  columna  2  (solamente 
en  el  C-64  sustituye  P+22  para  el  VIC-20). 

Ten  en  cuenta  que  tenías  que  calcular 
que  la  fila  2,  columna  2,  era  P+40  para 
que  la  letra  se  situara  en  el  lugar  correcto. 
También  loma  nota  que  resulta  más  difí¬ 
cil  escribir  en  las  posiciones  de  pantalla 
con  los  ordenadores  Commodore  dado 
que  los  caracteres  se  tienen  que  introducir 
uno  por  uno  mediante  un  Poke*  y  tienes 
que  hacer  un  Poke  en  la  memoria  de  color 
con  el  carácter  de  color.  Finalmente,  tie¬ 
nes  que  tener  en  cuenta  que  los  códigos  de 
los  Poke  en  los  ordenadores  Commodore 
no  son  iguales  que  los  códigos  CHR$.  La 
A  es  CHR$(65},  pero  tiene  un  valor  de  1 
cuando  se  hace  un  Poke. 

Algunos  ordenadores,  como  los  IBM, 
utilizan  el  método  de  fila  y  columna  para 
el  direccionamiento  de  la  pantalla.  Por 
ejemplo: 

LOCATE  1,1:  PRlNT“HOLA" 
LOCATE  2,1:  PRlNT“HOLA" 

Esto  funciona  igual  que  el  primer 
ejemplo,  excepto  que  no  hace  falta  calcu¬ 
lar  las  posiciones  de  pantalla.  Esta  carac¬ 
terística  resulta  muy  útil  para  el  despla¬ 
zamiento  de  objetos  en  pantalla,  dado 
que  se  pueden  utilizar  variables,  como 
ROW  y  COL,  y  cambiarlas.  Si  quieres 
que  el  objeto  se  desplace  hacia  la  derecha, 
haces  que  CQL-COL+L  Para  que  se 
desplace  hacia  la  izquierda,  haces  que 
COL=COL-l .  Para  ir  hacia  abajo,  ROW— 
ROW+1.  ¿Vas  cogiendo  la  idea? 

Este  programa  añade  esta  característica 
al  C-64  y  al  VIC-20.  EJ  ordenador  dis¬ 
pone  de  una  característica  muy  útil  que  es 
el  control  del  cursor  con  el  que  puedes 
desplazar  el  cursor  por  filas  y  por  colum¬ 
nas  en  cualquier  dirección.  Para  poder 
imitar  la  función  Lócate,  tienes  que  hacer 
lo  siguiente: 


—Elegir  la  fila  y  columna  donde  quie¬ 
res  que  aparezca  el  cursor. 

—Desplazar  el  cursor  a  la  posición 
HOME.  Esto  se  hace  escribiendo 
CHR${19). 

—Desplazar  los  caracteres  de  cursor 
COL  a  La  derecha. 

— Desplaza  el  cursor  hacia  abajo  el 
número  ROM  de  filas. 

— Empieza  a  escribir  en  este  punto. 

Esto  es  mucho  más  fácil  de  lo  que 
parece.  Iré  despacio  para  que  puedas 
seguir  los  pasos,  utilizando  la  pantalla  de 
40  columnas  del  C-64  como  ejemplo. 

Como  funciona 

Primero,  se  construye  un  “string”  que 
devuelve  el  cursor  a  la  posición  HOME, 
sin  borrar  la  pantalla.  Este  “string"  tam¬ 
bién  incluye  suficientes  símbolos  de 
CRSR  RT  para  desplazar  el  cursor  a  la 
extrema  derecha  de  una  sola  fila.  Por  lo 
tanto,  esta  variable,  R$,  será  igual  a  1 
CHR$(  19)(HOME)  más  40  CHRS(29) 
(CRSR  RT),  Esto  se  construye  de  la 
siguiente  forma: 

10  R$“CHRS(  19) 

20  FOR  N=1  TO  40 

30  R$= R$-bCH  RS(  29) 

40  NEXT  N 

Si  se  incluye  PRINT  R$  en  cualquier 

_ Primero, _ 

se  construye 
un  “strine” 

_ gue _ 

_ devuelve _ 

_ el  cursor _ 

_ a  la  _ 

_ posición _ 

HOME, 

_ sin  borrar _ 

la  pantalla. 

Este  “strine” 
también  incluye 

_ suficientes  _ 

_  símbolos _ 

de  CRSR  RT 
para  desplazar 
el  cursor. 


lugar  del  programa,  el  cursor  aparecerá 
en  seguida  en  la  esquina  superior  izquierda 
de  la  pantalla,  sin  borrar  lo  que  se 
encuentra  allí,  y  a  continuación  se  despla¬ 
zará  40  posiciones  a  la  derecha.  Esto  ocu¬ 
rre  tan  de  prisa  que  ni  te  das  cuenta  de 
ello. 

Si  no  quieres  que  el  cursor  esté  en  la 
columna  40  o  si  COL  es  igual  a  20  tienes 
que  utilizar  LEFTS.  Por  ejemplo: 

100  PRINT  L E FT$ ,( R $ ,CG L ): “ HO L A” 

Ahora  presta  atención.  El  cursor  se 
desplaza  a  la  esquina  superior  izquierda, 
igual  que  antes  porque  el  primer  carácter 
de  R$  sigue  siendo  CHR$(19),  Pero  en 
este  caso  el  C-64  escribe  los  siguientes 
caracteres  solamente  hasta  la  longitud  de 
COL-1 ,  como  si  fueran  de  CRSR  RT.  Por 
lo  tanto  el  cursor  se  desplaza  un  total  de 
COL- 1  espacios  a  la  derecha,  y  empieza  a 
escribir  en  la  siguiente  posición,  que  es 
COL. 

Por  lo  tanto,  si  utilizas  la  línea  100  que 
se  ha  visto  antes,  puedes  escribir  HOLA 
en  la  fila  1  y  el  número  de  columna  COL 
casi  instantáneamente,  Pero  puede  que 
quieras  escribir  en  una  fila  que  no  sea  la  l . 

Para  hacer  esto  se  construye  una 
segunda  variable,  D$,  que  es  igual  a  25 
símbolos  de  CRSR  DN.  o  CHR${17).  Sí 
quieres  la  fila  10,  ROW  tiene  que  ser  igual 
a  10,  La  linea  del  programa  serán  las 
siguientes: 

100  PRINT  LEFTS>( R$,CÜL);LEFTS 
( D$,  RO  W );“  HO  L  A  " 

El  cursor  se  desplazará  a  la  posición 
HOME,  pasar  por  Las  columnas  COL  y 
hacia  abajo  en  las  filas  ROW,  para  que 
puedas  escribir  automáticamente  en 
ROW,  COL.  Enhorabuena!  Acabas  de 
añadir  la  función  LOCATE, 

Esta  técnica  funciona  exactamente 
igual  que  en  el  VIC-20,  con  la  diferencia 
de  que  el  cursor  solamente  se  tiene  que 
desplazar  por  22  columnas  para  cubrir 
toda  la  pantalla  de  izquierda  a  derecha. 

Esta  técnica  se  utiliza  en  este  programa. 
Se  eligen  los  nombres  de  tres  lugares 
accediendo  tres  veces  a  una  subrutina  en 
la  linea  770  (la  línea  780  en  el  listado  del 
VIC-20).  Esta  rutina  elige  un  número 
aleatorio,  R,  y,  si  dicho  lugar  no  ha  sido 
escogido  antes,  GE0$(R,1)  se  convierte 
en  un  nombre  de  lugar,  CIUDAD$(n,l). 
La  respuesta  que  se  necesita  para  eliminar 
el  lugar,  GEO$(R,2),  se  almacena  en 
CiUDAD$(n,2). 

La  fila  donde  se  escribe  cada  ciudad  en 
un  momento  dado  se  almacena  en  un 
“array"  numérico  de  tres  elementos,  uno 
para  cada  una  de  las  tres  ciudades.  Al 
principio  de  cada  vuelta,  R(  1 ),  R(2)  y  R(3) 
serán  todos  iguales  a  1 ,  dado  que  las  ciu¬ 
dades  1 ,  2  y  3  empezarán  en  la  fila  1 . 

A  medida  que  avanza  el  juego,  la  sen¬ 
tencia  LOCATE  se  utiliza  para  situar  el 
cursor  en  La  columna  y  fila  donde  tiene 
que  aparecer  una  ciudad.  Para  escribir  la 
ciudad  Q,  utiliza  las  siguientes  lineas. 

930  PRINT  LEFT$(R$,COL(Q)); 

940  PRINT  LEFT$(D$,R(Q)); 

950  FOR  &“1  TO  LEN(CIUDAD 

StQ.O) 

960  PRINT  CHR$(32); 
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970  NEXT  S 

980  R(Q>=R{Q)+1 

990  PRJNT  LE  FT$Í  R$  ,COL(Q)); 

LEFTS(DS.R(Q)); 

1000  PR1NT  C1UDAD$(Q,1); 

Como  te  acordarás*  COL(n),  siempre 
será  igual  para  cada  ciudad.  Por  lo  tanto* 
la  linea  930  coloca  el  cursor  en  la  columna 
fijada  para  el  lugar  Q  y  la  línea  940  des¬ 
plaza  el  cursor  a  la  fila  correcta. 

A  continuación,  un  bucle  Foi\..Next, 
desde  l  hasta  donde  acabe  el  nombre  de 
la  dudad,  escribe  una  serie  de  espacios, 
CHR$(32),  en  la  pantalla,  para  borrar  el 
nombre  de  la  ciudad  en  la  ultima  posición 
donde  apareció.  Luego*  se  suma  1  a  la  fila 
donde  la  dudad  Q  aparece  y  se  escribe  el 
nombre  de  la  ciudad  en  la  nueva  posición. 

Dado  que  Q  se  elige  al  azar  (línea  9(10 
en  el  listado  para  el  064,  910  en  el  del 
VIC-20),  a  veces  una  dudad  se  desplazará 
varias  veces  en  una  fila  mientras  las 


demás  se  quedan  quietas.  Otras  veces  los 
movimientos  serán  iguales.  Esto  resulta 
en  el  descenso  aleatorio  de  las  tres 
palabras. 

Si  cualquiera  de  las  tres  variables  R(n) 
es  igual  al  número  de  líneas  que  repre¬ 
senta  la  capacidad  máxima  de  la  pantalla 
del  C-64  o  la  del  VIC-20,  significa  que  la 
ciudad  ha  llegado  a  la  última  fila  de  la 
pantalla,  y  el  programa  accede  a  una 
subrutina  que  resta  una  vida  y  avisa  con 
un  sonido  y  escribe  una  advertencia. 
También  comprueba  para  ver  si  LI  VES=Q, 
yt  si  es  así,  se  termina  el  juego. 

A  medida  que  van  bajando  las  ciuda¬ 
des,  el  teclado  busca  una  entrada  (líneas 
910  y  920).  Si  pulsas  una  tecla,  el  pro¬ 
grama  salta  a  la  línea  1150  o  1 160.  Aquí, 
se  hace  una  comprobación  para  ver  si  AS 
corresponde  a  RETUR N  (CHR$(  13)).  De 
ser  así,  el  programa  vuelve  a  trasladarse, 
en  esta  ocasión  a  las  líneas  1250-1260, 


para  ver  sí  la  respuesta,  AN$,  corres¬ 
ponde  a  cualquiera  de  las  ciudades  en  la 
pantalla  en  ese  momento. 

AJ  recibir  una  respuesta  correcta  se 
borran  las  posiciones  anteriores  de  las 
ciudades,  sus  filas  vuelven  a  tener  un 
valor  1  y  se  elige  un  nuevo  lugar  para 
sustituir  ai  anterior. 

A  veces,  los  nombres  de  las  ciudades 
chocan  en  la  pantalla,  especialmente  en  la 
pantalla  del  V1C-20  por  ser  esta  más 
pequeña.  Sin  embargo,  como  se  empiezan 
a  escribir  unos  encima  de  otros,  resulta 
más  divertido  al  ser  más  difícil  re¬ 
conocerlos. 

Si  quieres  modificar  el  color  de  los 
caracteres,  cambia  el  valor  de  la  variable 
CYAN$  en  la  línea  110.  NC  en  la  linea 
130  es  el  número  de  parejas  de  ciudades. 
Si  quieres  aumentar  o  reducir  este 
número  (siempre  dejando  un  mínimo  de 
28)  tienes  que  modificarlo  en  esta  línea. 


O* 


C-64. 


I@  REM  *#♦*♦♦*♦♦**#♦ 

20  REM  *  * 

30  REM  *  ÜfcÜL'ftMF  I H  * 

40  REM  W  * 

50  REM  H¡#*****¡***é** 

5S  REM 

60  REM  *  INICIA!  IZAR  * 

n|  i=rHRJ*  U?VDNí-rHR$a?l 
80  RT*-CHR*C29) :  HME**CHR$í 19 > 

90  LF*-CHRía57>  :UP*aCHR*'  145.'< 
100  RV$.f:HR*<10)  0FF#CHR*<  146» 


1  lw  WH  l  TE*-CHR$<5  >  ■  CVMNi“C'NRil  159  » 

120  QOSUBISSé 
130  NC-65 
140  LIVES=9 

150  REM  4  INSTRUCCIONES  * 

160  RRINTCL*,HNi 

1 70  PR I NT TAÍK6) " í 5SPC ] * ( 3SPC I OEÜGRRF 
IHC2SPCI4" 

Í60  PRIN7 

190  PRXNTTA8Í  4  > M ENTRA [ SPC 1 EL rSPCIPAI 
S r  SPC ] 0  C  SPC  JLfit SPC ]PR0V I NC I A " 

200  PR I NTTMB < 4) "ENÍ SPC] LA t SPC] QUE [ SPC I 
SE  C SPC  1  ENCUENTRA C  SPC  3L.RC  SPC  I C I  UDffiD  " 

210  PRINT 

220  PR  I  NT  TBB  *'  4  "  T I É  NES  f  SPr  ]  TRES  r  SPC  ] 

V IDAS[ SPCJ PARAC SPC IEL IMINAR" 

230  PRINTTRBC 4  » "25ÍSPCICIUDAIIES.  [SPC] 
BUENA  [SPC]  SUERTE  1 11 DN$ 

240  PRINTTfiBC 10V C7SPC3PULSACSPC3UNN 
[SPC] TECLA" 

250  GETft$:  IFRM""f¡OTO250 
260  REM  *  DIFICULTAD  * 

270  PRINTCLFiDN*; DNt 
260  PR I NTTABC 8  > "  B I F I CUL THD : " i DN J 
290  PRINTTASC8 » "[ I ] [SPC3RAPIDOÍ SPCIA 
C8PC3Í  9HSPCILENTCI" 

300  UEThí : IFA#1" "THEN300 
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MAS  CERCA  DE  SU  CASA 


Encontrará  el  juego  nfi  1  de  U.S.A.  SAUCER  ATTACK!  en  la  relación  de  tiendas  de  informática  o  kioscos  que  detallamos: 


En  BARCELONA 


I  elr  unión  Computer.  CA  Buenos  Aires,  57 
Novo-Digil,  S.  A.  Aragón,  472 
Electrónica  J ova II.  Gran  de  San  Andrés,  129 
Electro  Afición.  VDhnd,  104 

Electrónica  Vivas.  Alosen  J Acimo  V  erdagner.  7ft.  Sia,  (  o loma 
de  Gramanet 

Radío  Deforest.  Yiladomat,  105 

Xios  Aeropuerto  de  BaKXkwm 

Arcas  NanLv  Estación.  Sants  Ferrocarriles 

La  Librería,  S*  A.  Arda-  Surtid.  I 

Librería  Artót,  Mayor  de  Samó,  2 

Leonor  Hernández  Reiría  Llbertaa,  2 

Librería  Bosch,  Ronda  Universidad,  11 

Ldkkrties  Z,  Paseo  de  Gracia,  19 

Mallorca.  Rambla  (  ai  aluna.  86 

Libros  y  revistas  BRUCUERA.  Mambla  Cataluña,  72 

XAPS.  Palmes,  244 

Iría  del  Tesoro,  Manuel  Giren»,  42 


Mandrí.  Mandri/C’erdanyola 
Calve!.  Plaza  Núdei  de  Arce 
Kiosco,  Canuda  Ramblas 

Librería  Catatadla.  Hda,  S,  Pedro  Fie.  Cortó  Inglés 

Kiosco  Vanguardia.  Paseo  de  Gracia 

Kiosco  Drugstore,  Paseo  de  Grada 

Librería  Francesa.  Paseo  de  Grada 

Kiosco  La  Oca.  Plaza  Calvo  Sotelo 

Kiosco  Zanóti,  Plaza  Calvo  Sotólo 

Kiosco  Princesa  Sofía,  frente  Hotel  Princesa  Sofia 

Kiosco  Inttru-  Pedralbes.  Paseo  Manuel  Girona 

Kiosco  Coca  Caspe 

Kiosco  Manos,  Ramblas 

Kiosco  t  olón.  Ramblas 

Kiosco  Carrillo.  Baena  Diagonal  Fie.  Corte  Inglés 

Kiosco  lele  Express.  Paseo  de  Grada 

Kiosco  Solí,  Ramblas  Plaza  Cataluña,  13 

Kiosco  Ya.  Plaza  Cataluña,  13 

Drugstore  David.  Tuset 

Librería  Arcadia.  Tuset-Pj*.  Arcadia 

Kiosco  Corte  Inglés.  Corte  Inglés.  Diagonal 


Vic  {Barcelona)  Serví  CompuL  C/*  Moragas,  4b  bjs, 
Vílafranca  del  Penedcs.  Radio  Computer  Cefltef. 

Otra-  de  Igualada,  21 

Tarragona.  Electrónica  Rifé,  C/.  Ramón  y  CajaC  W 
Gerona.  Kegiscüfiipte,  S.  A.  CA  Emilio  G rabil.  17  bis 
Lérida.  Tele  va.  Doctor  J  leming,  53 
Navarra,  Andorra  2.  Aída,  Koncesvalks  H.  Pamplona 
Zaragoza-  Ada  Computer.  Paseo  Independencia,  24-2é 
Bilbao.  Aymosa.  Blas  de  Otero,  45 
Sestao.  Bilbao,  C/.  V  ia  G  alindo,  l 
Santiago  de  Compórtela,  Tadel.  C/,  Mezonzo*  15 
Santiago  de  Com póstela.  Hall  Software.  CA  Alférez 
Provisional,  l  en  i.  E 

Tórrela» ega  Cantabria.  Informática  Siglo  XXL 
CA  San  José  M.  Pereda,  t 

Burgos,  Centre  Wefcome.  Alejandro  Rodríguez  Valcárrelí 
Madrid,  ABC  Informática-  Zoffaauo,  91-6-0 
Madrid.  Key  Informática.  Embajadores,  90  rienda 
Las  Palmas  de  Gran  Canaria.  Pedro  González  Melián. 

K  osario.  5  Vegueta 

Palma  de  Mallorca.  Dimel,  S.  A.  Juan  de  Cremón,  4 


¡POR  FIN! 

Ha  llegado  un  N°  1 
en  USA  para  su 


Commodore  64 


Ud.  está  en  su  posición  vigilando 
Washington  D.C. 

La  ciudad  parece  apacible  desde 
su  puesto  de  defensa  y  no  hay  los 
signos  de  la  invasión  Extraterrestre 
que  Ud.  espera. 

De  pronto  el  silencio  es  alterado 
por  el  penetrante  silbido  de  los 
platillos  volantes.  Son  los  invasores 
descendiendo  sobre  la  ciudad. 

Ud.  entra  en  acción  y  pone  en  su 
punto  de  mira  al  platillo  volante. 

Aprieta  el  botón  de  juego  y  sale  un 
misil  que  destruye  al  ovni 
desintegrándose  el  platillo.  Otro 
platillo  volante  se  acerca  a  los 
edificios  y  antes  de  que  Ud.  se  de 
cuenta  destruye  el  monumento  de 
Washington  C.D,  con  un  rayo  de 
energía  atómica.  La  batalla 
transcurre  durante  el  día  y  en  un 
momento  determinado  pasa  a  ser 
de  noche. 

Si  un  platillo  aterriza  todo  está 
perdido.  Cuando  Ud.  consiga 
neutralizar  el  ataque  el  juego 
continuará  y  se  deberá  destruir  la 
nave  madre.  SI  lo  consigue  una  gran 
celebración  le  espera  cuando 
vuelva  a  Washington  D.C. 

SAUCER  ATTACK 
es  realmente 
un  JUEGO  DISTINTO 


COMMODORE 


INSUPERABLE  CALIDAD  AUDIO-VISUAL 

* 


PEDIDOS 
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Tuset  n.°  8,  entio.  2°  Tel.  218  02  93 
BARCELONA  08006 

DISTRIBUIDORES 
Y  PARTICULARES 


NOMBRE . 

DIRECCION . 

CIUDAD . 

....PROVINCIA . 

Ü  Adjunto  cheque 
□  Contra  reembolso 

Precio  Venta 

Gastos  envió:  300  ptas. 

9.975  ptas.  j 

Geografía  a  juego 


310  DELAYbVALCA*,<42 
■320  IF  I€LHV»0GOTO3ítM 
33h  PEM  *  L.EE  CIUDADES  V  I  AS  PONE  EN 
F-L  ARRAY4 
340  PRINTCL* 

350  COL í  I '» » 1  ¡  COL( 2 ) ■  1 5 ! COL í 3 > "25 
360  DIMGE0*<NC,2> 

370  FORROLMTONC 

100  F0RC0L=JTQ2 

3^0  RERl)  GEOf  (POKiCOL) 

40U  NEXTCOL 

410  NFXTROW 

42tí  PRINTCL t 

430  REM  *  INFORMACION  4 

440  DATA  LISBOA . POTUGRl  .OPORTO, PORTO 

GAL . PAR  I S , FRANC I A . BURDEOS , FRRNC 1 A 

442  UNTA  AMSTERPAM. HOl  ANDA, ROTTERDAM 

■  HOL.HNDR,  BONN,  ALEMANIA  OESTE 

444  DATA  MUNICH - ALEMANIA  OESTE , POSTD 

AM. ALEMANIA  ESTE , l E IPZIG, ALEMANIA  ES 

TF 

446  DATA  BERNA, SU IZft, GINEBRA, SUIZA, L 
ONDEES. GRAN  BRETAÑA, EDIMBURGO, GRAN  B 
RETANA 

44Á  DATA  DUBl ÍN  IRLANDA, CORK • IRLANDA 
, REYKJAVIK , I SLAND I A . T I RANA . AL  PAN I A 
460  DATA  VADUZ,  L I  ENCHES  TE  1N,  MONTE  CAR 
L 1 1  ■ MONACO . ROMA . I  TAI  T  h  GENOVA . I  T  AI  I A 
452  DATA  COPE  NHRGUE • D I NAMHROA , ROSK I L 
DF . D I NAMARCA , OSLO, NORUEGA , BERGEN , ÑOR 
MEGA 

454  DATA  FSTQCOL.MO,  SUFOIR .  HFNSM.KI  •  F 
INLANllIA,  VAPSOVIH .  POL  UNIA  ■  DANZIG,  PUL 
ONIH 

45b  DhTm  PRAGA, CHECOSLOVAQUIA, PILSEN 
. r HFCOSl  OVAOUÍR . V I F NA . Al  ISTP I A . SAL TZF 
URGO 

450  DATA  AUSTR I H . BE  I  GRADO . VUGQSLAV I A 
,  *ARR I  EVO,  VIJGOSLAV  IR,  BUDAPEST,  HONOR  I 
A 

4f>0  PATA  SOF I A ,  BUL  GAP  1 A  ■  W  JCRPFsT  ,  ROM 
AN  J  m  .  CONSTANZA ,  RUI’IAN  í  A ,  ATENAS ,  ORE  i  1 A 

462  DATA  SALONICA .ORFCIA, MOSCU, RUSIA 
. ODESSA, RUSIA, RIGA, L ETONIA • K I EV , UCPfl 
NIA 

454  DATA  ANKARA. TURQUI  A- NI COSI A. CHIP 
RE  - LA  VAL.  ETA, MALTA.  SICILIA-  ITAL  Ift 
466  DATA  CORCEGA ■ FRANCIA, CERDENA. ITA 
LIA, CRE r  H ■ GRF C I H , CARD I FF , GRAN  BRETAN 

H 

408  DATA  GLASGOW ■ ORAN  BRETAÑA .FRANKF 
URT, ALEMANIA  OFSTE.COI  ONI A, ALEMANIA 
OESTE 

470  DATA  MARbFI  LA , FRANCIA, L YON, FRANC 
IH > LA  HAYA, HOL ANDA 

472  DATA  V I LNA , L I TOAN I A . T Al  I  IN  FSTOH 
LA, ESTAN BUL . TURQUIA, BRUSELAS. BELGICA 

474  DATft  AMPERES, BELGICA 

760  GOTOG10 

770  R=!NT' RNDM  jiKNC  )  +  1 

700  ÍFGFOf ( R Tú 770 

79Ñ  REtURN 

A0W  REM  4  COLOCA  3  INVASORES  4 
010  FORN=1T03 
020  GOSUF770 

830  C I U DA Di ■ H ■ 1 ) =GE Oí <R , 1 >  i C I UDADííN 
. 2>»GE0*<R,2) 

840  GEOfíR, 1 ?  = 

850  NEXTN 

860  REM  *  COMIENZA  EL.  JUEGO  4 
870  PPINTCI  * 

880  0OSUB1660 

890  R( 1 >*1 ■ RC2)"1 -RCS)*! 

900  Q-INTIRNDO  >*3>+l 

9)0  GETHÍ  IFAíO" “THENGORI IB  1 150 

920  IFRd  '=250Rpf 2  >“250RRT3)=25THENG 

OSUB10S0 


930  PR INTLF.FT*  -  R *,  COL í Q> )  i 

94W  PRINTLEFT*aií.R<Q>  >1 

A58  F  OPS=  I TOL EN  <  C I  UPAD*  ( 0 ,  1  ,i 

960  PR1 NTCHRíf  32) i 

97P  NEXT3 

980  R( O J=Ri Q j  + 1 

990  PRÍNTLEFTf  TRF,  COLCÉÍ)  >  ,‘L.EFTf  TDÍ .  R 

íG>>; 

1 000  PRINTCIUDADfO?. 1 >. 

1010  G0SUB1 720 

1020  FORNalTODELAY  NEXTN 

1030  OOTO900 

1040  REM  4  LA  CIUDAD  LLEGA  Al  SUELO 

4 

1058  PRINTCL* 

1068  PRTNTTAB1 2i "HASf SPC1PERD I D0CSPC1 
UNACSPC] VIDA 1  i" 

1070  GG SI  JB 1820 

1880  FGRN“1 TG1 000 ; NEXTN 

1090  PRINTCL* 

1100  GOSUB1660 

1110  L IVES=L I VES-1 

1120  I F  L I VES-AGOTO 1 430 

1130  R1'  1  >=!  :  R<2>»1  RO)*l  :  GOTO  1400 

1140  REM  *  UNA  LETRH  4 

1 1 56  I FA*»C HR*( 1 3 ) THEN 1 250 

1160  IFh*=CHR*<32>THEN1 198 

1170  fl"ASCf A* i 

1180  I F A<650R A>9@THENRETI  IPN 

1190  HNÍ=AN*+Hí 

1200  PR1NTHME*: 

1218  PRINTAN* 

1 220  PR INTTABC 25 > RV* ■ WHITE* ¡ "VID AS I SPC 1 
;  "  ,  OFF*  :  l'YAN*  i  1  IVFS: 

1230  RETURN 

1240  RFM  *  COMPRUEBA  RESPUESTA  4 
1250  IF  RIGHTM3  THEN  1 500 
1 260  I F  ANÍ-C I UPAD* '1,7 ' THENAN» 1 ■ GO  T 

01  330 

1270  IF  HNÍ=C1UDHD$*'2,2',THENHN=2:G0T 

0 1 330 

1288  IF  RN*«C I IJDAPí < 3 ■  2 > THENRN=3 : 60  T 
01330 

1290  ANí=" " 

1380  PR I NTHME* . " [ 1 7SPC 1 " . : PRINTHMEí 
1310  RETURN 

1320  REM  *  RESPUESTA  CORRECTA  4 
1330  RIOHT=RIOHT-M 
1340  PRINTCL* 

1  ISO  QOsUB 1 660 
1360  G0SUB778 

1 37tí  C I LÍDAJ  i*  (  HN .  1  ;■  *GEO*<R,  I  >  -  r  I  UPAD* 
f  AN.,2)=GE0*<R.'  2> 

1380  OEOtíP ■ 1 . = " " 

1390  R(  1  '.=1  :p<  2)  =  i  :  p.  8  1  =  1 
1400  ANí=“ " 

1410  RETURN 

1420  REM  4  SE  PIERDE  * 

1430  PRINTCL*; DNí ¡ DNí 

1448  PRINTTABMV'LOrSPCIsrÉNTCiCSPCJ, 

C SPC ] PERO CS PC ] HASt  SPC 3 AGOTADO rSPC 1  TI  i 
S" 

1450  PR  1NTTAB>'4  >  "TPESfSPC] VIDAS.  RESP 
ONDISTE " • RIGHT 

1460  PR I NT THBí 4 > "CORRECTAMENTE.  " 

1470  PRINT 

1430  GOTO 1540 

1490  REM  4  SE  GANA  4 

1500  PRINTCL * ; DNí ; DHí 

1510  PR I NTT HB  a  0  V  HAS! SPC 1 GANADO ! " 

1520  PRINT 
1530  REM  *  FIN  4 

1540  PR I NTT RB  f 1 A 1 " OTRA  C  SPC ] VEZ7 " 

1550  GETA* ■ IFAÍ=" "GOTO1550 
1560  I FA * = " S ” T HENRUN 
1570  END 
1 560  R*-HME* 

1590  FOPCOL -1TO40 
1600  Rí=p*+PTí 
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21 0  PRINT 
22@  PEM 
230  REM 

240  PRINT"!  3SPC  ]  PULSA  t  SPC  I  UNÁt  SPC  ] TECLA " 
250  GETAJ:  IFRÍ='‘ "GDTQ250 
260  REM  *  DIFICULTAD  * 

270  PRINTCL* ; DH* ; DNJ 

2S0  PR I  NT  "D IF I CULTAD''-’ :  “  i  DNÍ 

290  PRINT"tl3CSPC]LENT0tSPClflCSPC)[9 

HSPC1RHPID0" 

300  GETRÍ : IFR$=" "THEN300 

310  DELAY=VAL  <  AS  >  *2 

320  IF  DELAY=0íDTCi300 

33tí  REM  f  LEE  CIUDADES  Y  LAS  COLOCA 

EN  ÉL  ARRAY  * 

340  FRINTCL* 

350  COLC 1)=1 : C0L(2)“8 : CQLí3)= 15 
368  DII1GEOí(NC,2) 

370  FORRO W=1TÜNC 

360  F0RCÜL=1T02 

390  READ  GEOÍ<ROW,COL) 

400  NEXTCOL 
410  NEXTROW 
420  PRINTCL* 

430  REM  *  INFORMACION  * 

44Ü  DATA  FERROL, LA  CORUNB, VIOO . PONTE 
YEDRA, RI BALEO, LUGO, RIBA DA VI  A, ORENSE 
442  DATA  OVIEDO, ASTURIAS, O IJOH/RSTUR 
I  AS, TÜRREL AVEGA, SANTANDER, BILBAO , VIZCAYA 
444  DATA  S. SEBASTIAN, GUIPUZCOA, VITOR 
E  A , AL  RV A , PAMPLONA , NAVARRA , MONZON , HUESCA 
446  DATA  CAL ATHYUD , ZARAGOZA , ALCAN I Z, 
TERUEL , S ABALELO , BARCELONA , REUS , TARRAGONA 
446  DATA  OLOT , GERONA, SEO  DE  IJRGEL, LE 
PIDA. CALAHORRA , LOGROÑO , EL DA , AL  I  CANTE 
450  DATA  SAGUNTO, VALENCIA, PENISCOLA, 
CASTELLON , CARTAGENA , MURC I A , MANACOR , M 
RLLORCA 

452  DATA  MAHON, MENORCA, PONFERR ADA, LE 
ON,BENAVENTE, ZAMORA, ALDA  DE  TORME$,S 
AL AMANCfl 

454  DATA  CIUDAD  RODRIGO, SALAMANCA, MI 

RANDA  DE  EBRD, BURGOS  , HUMANO I A, SORIA 

456  DATA  SEPULVEDfl > SEGOVIH, AREVALO, A 

VI Lft, TOREES  ILLAS , VALLRDOL I D 

458  DATA  VENTA  DE  BAÑOS, FALENCIA ■ ARA 

NJIJEZ ,  MADRID,  TAL  .AVERA ,  TOLEDO 

458  DATA  VENTA  DE  DANOS, FALENCIA, HRH 

NJUEZ ■ MADRID, TAL A VER A, TOLEDO 

460  ¡JOTA  VALDEPEÑAS,  CIUDAD  REAL,  TARA 

NEON, CUENCA , S I GUENZA ■ GUADAL AJARA 

462  DATA  HELLIN, ALBACETE , PALOS  DE  MO 
GUER , HUEL VA , EC I  JA , SEVILL A , C ARMON A , SE 
VILLA 

464  DATA  LUCE NA, CORDOBA , BAENH , CORDOB 
ft, BAILEN, JAEN, MOJACAR, ALMERIA 
466  DATA  MOTRIL, GRANADA, ANTEOJERA, Mft 
LAGR , ALGEC I  RAS , CADIZ , TRU J I LLO , C ACERES 

463  DATA  MERIDA . BADAJOZ, DON  BENITO, B 
ADRJOZi LA  OROT AVA, TENERIFE 

470  DATA  MAS  PALOMAS, GRAN  CANARIA, RR 
RECIFE, LANZAROTE 

472  DATA  TUDELA, NAVARRA, JACA, NAVARRA 
, ARPO , LA  R 10  JA , LORCH . MURC I A ■ I  NCR , BAL 
ERRES 

474  LATA  GUAD IX, GRANADA, RONDA, MALAGA 

•RUTH, CADIZ 

760  GOTO810 

770  R=INT<RND<1)*NC>+1 

780  IFGEOf <R,  1  >=" "ijÜTO770 

790  RETURN 

800  REM  *  COLOCA  3  CIUDADES  * 

810  FORN=1T03 
820  GOSUB770 

830  CIUDRDííN, 1 >=GEQ* <R, 1 >  CIUDADfCM 
,2)=GE0í<R,2> 

840  OEOtíR,  1  >  =  "" 

850  NEXTN 

860  REM  *  COMIENZA  EL  JUEGO  * 

870  PRINTCL* 


1618  NEXTCOL 
1620  FORROW* 1 T025 
1638  DÍ=D*+DN* 

1640  NEXT  ROW 
1650  RETURN 

1 660  PRINTLEFTííR* . 1 ) ;  LEFTÍCD*, 25) 
1670  F0RB=lTQ39 

1680  C«''  <IMT<RNDa  >*3>+l)*10  >+152 
1690  PRINTCHR*<C)J 
1700  NEXTB 
1710  RETURN 

1720  PORN=  1 5  TO  14  STFP-1 

173A  POJE 54296. N 

1740  POPE 542 76, 129 

1750  POPE 54277, 15 

1760  P ORE 5427 3 , 48 

1770  PGKE54272/280 

1780  NEXTN 

1780  PURE 54 2 76 ■ 0 

1600  PONE 542 77.0 

1810  RETURN 

1820  P0KE54296, S  5 

1830  R0KE54276, 33 

1840  P0KE54277, 1 28 

1850  POPE 54278, 128 

186tí  FÜRJ-1T0? 

1870  FORN»1TO100 

1 680  P0KF54278 . N/2+  J0 

1 690  POKE 54272 , N/2+70 

1900  NEXTN 

1910  NEXT  i 

1920  P0RE54296  •  O 

1930  RETURN 


Provincias  de  España 


10  RFM  ***♦«»«#**»*** 

20  PEM  *  * 

30  REM  #  GEOGRAFIA  * 

40  REM  *  * 

50  REM 
55  REM 

60  REM  *  INICIAL  IZAR  * 

70  CLt=CHRí < 147>  = DNÍ-CHRÍÍ I7> 

80  RTí=CHRK29)  HMEÍ=CHRí  19) 

90  LFí«CHRííl57>  UJPí=CHRí( 1452 
100  RV*=CHR*<18>  :GFF*»CHRfa  46> 

110  WHITEf=CHRí(3)  XYRN*-CHR*<  159) 

120  G03UE1 580 
125  POJE  36879 • 8 
n0  NC=í.5 
14tí  L I  VES =3 

150  REM  *  INSTRUCCIONES  * 

160  PRINTCL*! DN* 

170  PR I  NT  “  [  YEL ) [ SPC  3  *  C 4SPC  JGEÚGRAF I A 
[4SPC]*,‘  ■  DNÍ 
180  PRINT 

1 90  PR I  NT " ENTRA  C  SPC  3  EL  C  SPC I P A I S  C SPC 1 
OI  SPC JL A  C  4SPC ] I CRSRD ] PROV I  NO  I A [ SPC ] D 
ONDE!  SPC 1 SE  1 4SPC ] C  CRSRD I ENCUENTRA  C  SPC I 
LHISPCICIUDAD. " 

200  PRINT " t CRSRD ] T I ENES C SPC 13 t SPC ] VI 
DRSCSPCIPARA 1 33 PC  1 1 CRSRD I EL  I  MI NAR [ SPC 1 
25 [ SPC ] C I UPALES • "  PRINT" E2CRSRD3BUEN 
AISPCISUERTE ! " 
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MusiCalc 

El  Sistema  Creativo  de  Música 

(para  personas  aún  sin  conocimientos  musicales) 


PIHM»  PfWWÉWLl 

V 

TABLA  GRÁFICA 

para  Commodore  64 


¡Que  suene  ia  música! 

Convierta  a  su  Commodore  64  en  un  sofisti¬ 
cado  instrumento  musical,  y  él  le  convertirá  en 
un  compositor,  director  y  músico. 

Con  MUSICALC,  el  sistema  de  música  crea¬ 
tiva,  toda  la  familia  es  capaz  de  componer  y 
tocar  música  de  una  manera  instantánea. 

¡MUSICALC  le  divierte  jugando  con  la 
música! 

Obtenga  copias  en  papel  de  sus  propias  par¬ 
tituras,  utilize  más  de  30  escalas  distintas,  co¬ 
néctelo  a  su  equipo  de  alta  fidelidad  y  a  una 
caja  de  ritmos,  y  muchas,  muchas  posibilida¬ 
des  más. 


Entra  en  el  apa¬ 
sionante  mundo 
del  arte  de 
I  ordenador. 
¡Fácil  de  usar! 

Se  entrega  junto 
con  soft  en  cartu¬ 
cho.  Gráficos  en 
alta  resolución. 
16  colores.  2  pá¬ 
ginas  de  dibujo. 


Zoom,  menús  de  diseño,  archivo  en  cinta  o  dis¬ 
co,  posibilidad  de  incluir  texto.  Permite  printar  los 
gráficos  mediante  soft  adicional. 


Durabilidad  y  buen  precio 

Compatible  con  C-64,  Atari,  Spectravideo,  Sinclair  Spec- 
trum  (con  interface)  etc... 


MONITOR  DE  COLOR 

14”  Profesional 


•  Pantalla  de  gran  resolución 

•  Sonido  incorporado 

•  Entrada  señal  video  compuesta  o  RGB 

•  Peana  orientable 

•  Gran  resistencia  y  durabilidad 

Adaptable  a  todos  los  ordenadores. 

(Uos  microordenadores  que  sólo  tienen  salida  RF  son  compatibles  me¬ 
diante  una  sencilla  conexión) 


t*beMe° mad*®  bwaíJO* 

¡.ssS! 'S&ZZL 


Distribuidor  exclusivo 


tí 


Gran  Via  Carlos  II!,  97  K.  06028  BARCELONA 
Tete:  330  33  06  ■  330  33  62.  Té!®:  60156  JONC 


Le  presentamos  a  SPINNAKER. 

Para  que  también  nuestros  hijos  aprendan  jugando  con  el  ordenador. 


Muchos  padres  ya  conocen  que  el  ordenador  doméstico  pue¬ 
de  servir  para  que  nuestros  hijos  jueguen  y  pasen  largos  ratos  de 
ocia  Con  SPINNAKER  los  juegos  de  ordenador  además  sir¬ 
ven  para  aprender 

SPINNAKER  es  la  firma  líder  mundial  en  juegos  educativos  para 
ordenador.  Ahora  llega  a  nuestro  país  para  que  también  nuestros 
hijos  aprendan  jugando  con  el  ordenador 

Nuestros  juegos  están  llenos  de  emoción,  entretenimiento  co¬ 
lor,  música...  Ffero  además  poseen  un  afto  grado  de  vafor  educati¬ 
vo,  ayudando  a  los  runos  a  que  desarrollen  sus  habilidades  y  apren¬ 
dan  de  una  divertida  manera,  Aprovechando  al  máximo  las  nuevas 
posibilidades  que  nos  ofrece  el  mundo  de  las  computadoras. 

En  su  elaboración  han  intervenido  especialistas  en  la  educación, 
la  didáctica,  la  música,  los  gráficos  y  la  programación,  que  han  rea¬ 


lizado  un  cuidado  producto  especialmente  pensado  para  la  edu¬ 
cación. 

Estos  son  los  motivos  por  los  que  miles  de  niños  de  todo  el 
mundo  son  verdaderos  fans  de  SPINNAKER.  Y  sus  padres  también. 
Si  Ud,  realmente  desea  que  su  ordenador  familiar  sea  una  ayu¬ 
da  útil  para  el  futuro  de  sus  hijos,  recuerde  este  nombre:  SPIN¬ 
NAKER:  Una  divertida  familia  de  juegos  educativos. 


Gran  Vía  Orlos  IIL  97  IC  08029  BARCELONA 


SPINNAKER  SOFT  COR.  CAMBRIDGE,  MASS.  USA. 


.  Ge  ografio  a  luego - — - 

^  888  GO3UB1660 

690  R(U= 1  ' R< 21  =  1  Rí3?*l 

800  Q=INT<RNDd:>#3:>  +  l 

810  GETk»  ■  1  Fftí < "  “ THENGOSUB 1 1 50 

820  1FRC 1 > =230Rfi  C 2  > =230RR ( 3 1 =23THEH0 

0SUB1058 

930  PR  I  NT  LEFTí < R$  ,  COLÍO ) )  J 
940  PR I NTL  EFT  $ •  b$ , R  < Q  J > , 

950  F 0R3= 1 TOLENÍ  C I UDADí C  Q, 1 1  > 

960  PRINTCHR*<32>; 

970  NEXTS 
980  R^G^RW  +  I 

990  PRINTLEFTf  <R$,  CQLTG!) ) ,  LEFTÍ<D$, R(E)  1 
1600  PRINTCIUDRIifCG, X); 

1010  GOSUB1720 

1020  F0RH= 1 TÜDELAV : NEXTN 

1030  GOTO 900 

1040  REM  *  LA  CIUDAD  LLEGA  AL  SUELO  * 

1050  PRIUTCLÍ 

1060  PR I  NT "  HASí  SPC IFERD  I  DO  [  SPC  ]  UNACSPC  ] 
VIDA! " 

1070  GOSUE1720 

1 088  F0RH= 1 TÜ1 U00 : NEXTN 

1090  PRIUTCLÍ 

1100  GOSUB1660 

1110  LIVES=LIVES-1 

1120  I F L I VES= 0GOTO 1 4 30 

1130  R>:  1  >  =  1  R<2)=1  Rí3j  =  1  ;  GÜTÜ1408 

1140  RETI  *  UNA  LETRA  * 

1150  IFAíaCHRíOSIT HEH l 250 
1160  IFHf =CHPf  C  32  >  THEN 1 190 
'  1170  M=ASC<ftí 1 

1 180  I F  A<6  5OR'R>90THENRE  T  URM 
1190  ANÍ=HNí+AJ 
1200  PRINTHMEí,' 

1210  PR1NTRNJ 

1220  PRINTTAÉÍ 12)RVí , WHITEí , "VIDHSCSPCD 
:  "  ;  OFFí  CYflNÍ ;  LIVE3J 
1230  RETURN 

124G  REM  *  COMPRUEBA  RESPUESTA  * 

125&  ÍF  RIGHTM3  THEN1500 

1 260  IF  ANÍ-C 1 IJDABf < 1 , 2>THENAN»1 : GOT 

01330 

1270  IF  ANf=CIUDHDí Í2, 2>THENAN=2 : GOT 
01330 

1280  IF  RNÍ=CIUDADÍ (3,  2>THENAN=3  GOT 

01330 

1290  ANf=" " 

1300  PRINTHMEí;  "CÍ7SPC3";  : PRINTHME# 

1310  RETURN 

1320  REM  +  RESPUESTA  CORRECTA  * 

1330  RIGHT=RIGHT+1 
1340  PRINTCLÍ 
1350  GOSUE1660 
1360  G0SUB770 

1 370  C I IJDADÍ  C  AH .  1 )  =GEOí  C  R ,  1  > :  C I  UDADf 

(RN, 2>=GÉQÍ (R, 2> 

1380  GEOfCR, 1>="" 

1390  PC  1 >  =  1  RC2>=1 'R<3>=1 
1400  RNí=“" 

1410  RETURN 

1420  REM  *  SE  PIERDE  * 

1430  PRIUTCLÍ i DNÍlDNÍ 

1440  PR I NT " PERDONA , PEROtSPCJHAS 1 6SPC ] 

[CPSRB'J  PERDI  DO" 

1450  PPINT" CCRSRBITPESISPCIVI DAS. ACE 

RTASTE " i RIGHT 

1460  PRINTTRBC4) "CIUDADES" 

1470  PP I NT 

148Ü  GOTO 1540 

1490  REM  #  SE  GANA  * 

1500  PRINTCLÍ,  DNÍ ,  BN1 

1510  PR INTTAB ( 101 “ HAS I SPC ] GANADO [SPC ] 

!  ! 11 

1520  PPINT 

1530  PEM  *  JUEGAS  OTRA  VE 2  * 

1548  PRINTTRBO0) "OTRA! SPC1  VEZ?" 

1550  GETfW : I F  Aí= " “ GOTO 1 550 
1560  I F A í  = " S " THEN RU N 
1570  END 


1588  Rt=HME$ 

1390  FORCOL= 1 TO40 
1600  RÍ=F$+RTt 
1610  NEXTCOL 
1620  F0RR0W=1 T025 
1630  Di=BÍ+DNÍ 
1640  HEHT  RON 
1650  RETURN 

1660  PRINTLEFTf ÍRÍ,  I  ) ,  LEFTUDí  ,25) , 
1670  FORE= 1 T02í 

1630  C=<  OINT ‘ RNDC 1 )*3)+l >*101  +  152 
1690  PRINTCHRÍÍO; 

1700  HE ATE 
1710  RETURN 
1720  PQKE36878, 15 
1730  POPE 368 7 4, 230 
1740  P0KE36S78, 0 
1750  RETURN 


440  BATA  CIUDAD  DE  MEXICO, MEXICO. ACft 
PULCO, MEXICO, GUADAL A JAR A , MEXICO 
442  BATA  TEGUCIGALPft, HONDURAS  -  SAN  SA 
L VALOR > EL  SALVADOR , MANAGUA , NICARAGUA 
444  DATA  SAN  JOSE, COSTA  RICA, PANAMA, 
PANAMA , K I NGSTOWH , JAMA  I Cft , LA  HABANA , CUBA 
446  DATA  NASSAU, BAHAMA3 , PUERTO  PRINC 
I PE , H A ITI , SANTO  DON  I NGO , REP . DOM I N I C A  NA 
448  DATA  SAN  JIJAN,  PUERTO  RICO,  BRIDGE 
TOUN , BARBADOS , SAINT  GEORGE 'S, GRANADA 
450  DATA  PUERTO  ESPAÑA, TRINIDAD  &  TO 
BAGO , CARACAS , VENEZUELA , LA  GUAVRA , VEN 
EZUELA 

452  DATA  MARACA IBO, VENEZUELA, GEORGET 
O UN . GUYANA , PARAMAR  I BO , SUR  I  MAM 
454  DATA  CAYENA, GUAVANA  FRANCESA, BOO 
OTA, COLOMBIA, CARTAGENA  DE  INDIAS, COL 
OMB I A 

456  DAT AMEDELL I N , COLOME I A , ERAS IL I A , E 
R ASIL, SAO  PHOLO, BRASIL, RIO  DE  JANE IR 
O, BRASIL 

458  DATA  QUITO, ECUADOR, GUAYAQUIL ,ECU 
ADOR , L I MA , PERU, CALLAO , PERU , CUZCO, PER  U 
460  DATA  ARQUERIA, PERU . LA  PAZ, BOL I VI 
A , SUCRE , BOL  I V I A , COCHABAMBA . BOL  I V I A 
462  DATA  POTOSI , BOL I VI A, ASUNCION, PAR 
AGUA Y , MONTE V I DEO , URUGUAY, SANT I  RÚO, CHILE 
464  DATAVALPARA I  SO , CH I  LE , VALD I V I A ■ CH 
I LE, BUENOS  AIRES, ARGENT I NA , ROSAR I O , A 
RGENTINA 

466  DATA  MENDOZA , ARGENT I  NA , CORR I ENTE 

S, ARGENT I  NA , HAM I L  TON, EERMUBAS 

468  DATA  WASHINGTON  D.C.. ESTADOS  UNI 

DOS , ALASKA, ESTADOS  UN I DOS 

470  DATA  BALTIMORE, ESTADOS  UNIDOS, AL 

DI INQUEROUE , ESTADOS  UNIDOS 

472  DATA  SAN  LIEGO, ESTADOS  UNIDOS, SA 

CREMENTO, ESTADOS  UN  1  DOS 

474  DATA  PHOEN IX, ESTADOS  UNIDOS, OTTfi 

WA, CANADA, ONTARIO, CANADA, TORONTO, CANADA 

476  DATA  QUEBEC, CANADÁ, MÜNTREAL, CANA 

DA,  VA NC CU VER ,  CANADA 

478  DATA  GUATEMALA, GUATEMALA , MONTERR¬ 
EY,  MEXICO, VERACRUZ, MEXICO 
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COMPARTIENDO  EXPERIENCIAS 


ENTRE  AMIGOS 


Esta  sección  está  dedicada  a  la 
colaboración  de  todos  nues¬ 
tros  lectores  y  está  dividida 
en  dos  partes: 

1)  Programación:  Programas 
y  similares. 

2)  Magia:  Trucos,  sugerencias, 
etcétera  (pág.  54). 

Habrá  premios  >>  alicientes  para 
todos  los  participantes  (ver  pág.  6). 

Enviarnos  vuestra  dirección  para 
que  podáis  poneros  en  contacto 
unos  con  otros.  ¡ Animaros ,  chicos 
(...y  chicas )! 


carga  de  dichos  punteros  la  he  rcaJ  izado  en  una  pequeña  rutina 
en  código  máquina,  que  cargo  en  el  área  del  buffet  de)  cassette 
mediante  la  siguiente  rutina  Basic, 

10  POKE  53272, PEEKf  53272)  OR  8 
20  POKE  53265, PEEK(53265)  OR  32 
30  POKE  1619 1,0: POKE  2023,3 
50  READ  A;  1F  A  =  -1  THEN  70 
60  POKE  828  +  Z,  A:  Z  -  Z  +  I:  GOTO  50 
70  SYS828 

90  DATA  i 69,  64,  133,  90,  169,  63,  133,  91,  169,  63,  133,  88, 
169,  63,  133,  89,  169,  1,  133,95 
100  DATA  169,  32,  133,96,  32,  184,  163 
110  DATA  169,232,  133,90,  169,7,  133,91,  169,  231,  133,  88, 
169,  7,  133,  89,  169,  1,  133,  95 
120  DATA  169,  4,  133,96,  32,  184,  163,96,  -1 
130  GOTO  L30 

Descripción: 

Línea 

10-20  Se  activa  el  modo  alta  resolución. 

30  Se  ponen  los  valores  deseados  en  las  posiciones  alias  del 
área  de  alta  resolución  (pos.  16191)  y  el  área  de  video 
(pos,  2023)  que  controla  el  color  de  la  pantalla. 

50-60  Carga  la  rutina  en  C.M.  en  el  buffer  del  cassette, 

70  Se  llama  a  la  subrutina. 

90-120  Rutina  en  C.M. 

130  Mete  a  la  rutina  en  un  loop  del  que  se  sale  pulsando 
RUN/STOP  y  RESTORE.  Esta  instrucción  de  elimi¬ 
narse  cuando  se  incluye  la  rutina  en  un  programa  com¬ 
pleto  o  sustituirla  por  un  RETURN  para  utilizar  como 
subrutina. 


Os  envío  una  rutina 
que  sirve  para  limpiar 
el  área  de  alta  resolu¬ 
ción  del  CBM-64  de 
una  forma  más  rá~ 
pida,  que  con  el  bucle 
FOR-NEXT  que  viene  en  el  Manual  de  Referencia. 

Se  basa  en  utilizar  la  rutina  Move  Memory  del  Basic.  Para  ello, 
se  hace  un  POKE  a  la  última  posición  del  área  de  pantalla  con 
el  valor  que  deseemos  (0  en  el  ejemplo).  A  continuación,  se 
utiliza  la  rutina  Move  Memory  usando  como  dirección  fuente  la 
última  posición  de  la  pantalla  dé  alta  resolución  y  como  direc¬ 
ción  de  destino  la  misma  dirección  menos  1.  Con  ello  conse¬ 
guimos  que  el  valor  introducido  en  el  POKE  se  expanda  por 
toda  la  pantalla.  Después  se  repite  el  proceso  con  el  área  de 
video  (pos,  1024-2023)  que  controlen  el  color  de  la  pantalla  en 
el  modo  BIT  MAPPED, 

La  razón  de  utilizar  la  última  posición  de  la  pantalla  y  la  ante¬ 
rior  como  direcciones  fuente  y  de  destino,  es  que  la  rutina  Move 
Memory  transfiere  los  octetos  desde  las  posiciones  altas  del  área 
seleccionada  hacia  las  posiciones  bajas  de  la  misma,  es  decir,  de 
arriba  a  abajo. 

Como  explicaba  J.R.L,  end  n0  6  de  la  revista,  antes  de  llamara 
la  rutina  Move  Memory  hay  que  cargar  los  punteros  adecuados 
con  las  direcciones  fuente  y  de  destino  del  área  a  mover,  que 
Son: 

DIRECCION  90-91  ($5A-$5B)  Puntero  de  dirección  fuente. 
DIRECCION  88-89  (S58-S59)  Puntero  de  dirección  de  destino. 
Además  hay  que  indicarle  a  la  rutina  en  qué  dirección  debe 
terminar  de  transferir  octetos.  Esta  dirección  es,  debido  a  la 
forma  de  funcionamiento  de  la  rutina  Move,  anterior  a  la  direc¬ 
ción  fuente: 

DIRECCION  95-96  ($5 F-$6Ü)  Puntero  de  dirección  final  a 
mover,  y  no  el  número  de  octetos  a  transferir  como  se  decía  en 
el  tiy  6. 

Por  otra  parte,  he  intentado  cargar  dichos  punteros  en  Basic, 
mediante  POKE,  y  me  ha  sido  imposible,  pues  las  posiciones 
95-96,  después  de  efectuar  sobre  ellas  un  POKE  con  cualquier 
valor,  vuelven  a  tomar  el  valor  0,  Probablemente  se  deba  a  que 
alguna  rutina  del  BASIC  utiliza  dichos  punteros,  pero  es  algo 
que  me  gustaría  que  alguien  me  aclarara.  Por  esta  razón,  la 


Angel  Redundo  Carda 
l.jgo  Constanza,  4ó-2v  A 
28017  MADRID 


La  rutina  en  ensamblador  es  la  siguiente: 

LDA  #$40  Cargamos  el  puntero  de  dirección  fuente 
STA  $5 A  (90-91"$5A-5B)  con  la  dirección  final  del  área  de 
LDA  #$3F  alta  resolución  +  l(!6192=$3F  40) 

STA  $5B 


LDA  #$3F  Cargamos  el  puntero  de  dirección  de  destino 
STA  $58  (88-89-$58-$59)  con  la  dirección  anterior  del  final 

LDA  #$3F  del  área  de  alta  resolución  4*  1(  tó  1 90+ 1  — S3 F3F) 
STA  $59 
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CON  O  SIN 
SCPCRKSPANDOt 


JSR  $A3B8  Llamada  a  la  rutina  Move  Memory 
RTS  Volvemos  a  la  rutina  Basic 


LDA  #$E7  Cargamos  ci  puntero  de  dirección  de  destino  con 
STA  S5B  la  dirección  anterior  al  final  del  área  de  pantalla 


LDA  #S07  +  1(2022  +  1  =  $07E7) 

STA  $5B _ _ 

LDA  #$Q1  Cargamos  el  puntero  de  dirección  final  a  transferir 
STA  $5F  con  la  dirección  del  principio  del  área  de  pantalla 
LDA  #$04  +  1(1024  +  1  =  $0401) 

STA  $60 


LDA  #$0 1  Cargamos  el  puntero  de  dirección  final  a  transferir 
STA  $5F  (95-96=$5F-$60)  con  la  dirección  del  principio 

LDA  #$32  del  área  de  alta  resolución  +  1  (8 192+1  =$3201) 
STA  $60 _ _ 

JSR  SA3B8  Llamamos  a  la  rutina  Move  Memory 

LDA  #$E8  Cargamos  el  puntero  de  dirección  fuente  con  la 
STA  $5 A  dirección  final  del  área  de  pantalla  +  I 
LDA  #$07  (2023  +  1  =  S07E8) 

STA  $5B 


Podéis  comparar  el  tiempo  de  ejecución  de  esta  rutina  con  la 
que  viene  en  el  Manual  de  Referencia  en  Basic  y  veréis  que 
merece  la  pena  intentarlo  en  lenguaje  máquina. 


Voyager 


3,93 

100  DATA  169,32,133,96,32,164,163 
110  DATA  169,232, 133,90, 169,7, 133,91 
, 169,231,133,68, 169,7, 133,89, 169,1,1 
33,95 

120  BATA  169,4,133,96,32,184,163,96, 
-1 

136  GOTO  130 


10  POKE  53272, PEEK( 33272 >QRS 
20  POKE  53265,  PEEtí (53265>0R  32 
30  POKE  161 9 1,0  POKE  2023,3 
50  READ  A  :  I F  A— 1  THEN  70 
60  POKE  S28+Z , A ; 2=2+ 1 ¡GOTO  50 
?0  SYS32S 

90  DftTA  169,64,133,90,169,63,133,91, 
169,63, 133,68, 169,63, 133,89, 169,1,13 


I  Mando  este  progra¬ 
marlos  Rojas  Lope*  ma  de  juegos,  bas- 

Gustavo  Gallardo,  7-1  *  U  n _ 

Tclf,:  (954)  61  41  24  U"te  !en?i,C\  Com° 

Sevilla  estáis  hartos  de  piro- 

_ _ _ _  pos  no  os  mando 

ninguno. 

El  juego  es  para  el  VI C  20  no  ampliado,  pero  sin  embargo  en 
la  primera  parle  del  programa  aparecen  sentencias  del  SU  PER 
EXPANDER;  por  consiguiente  no  podrá  ser  utilizado  por  el 
V1C  standar,  a  no  ser  que  se  suprima  este  primer  programa  y 
con  él,  La  línea  30  deí  segundo  programa. 

El  juego  es  bastante  simple.  Consiste,  como  su  nombre  indica 
(VOYAGER),  en  un  viaje  inter-espacíal  atravesando  la  galaxia 
y  comiendo  marcianitos  que  te  encuentres  a  tu  paso.  Deberás 
tener  cuidado  con  los  terribles  bloques  de  asteroides  que  te 
destruirán.  Cuando  te  hayas  comido  un  número  de  marcianitos, 
incrementados  al  pasar  de  fases,  pasarás  a  otra  pantalla  más 
peligrosa,  con  menos  marcianitos  y  con  más  bloques.  Cada  diez 


puntos,  nave  extra.  El  juego  tiene  10  fases  y  a  la  onceava,  ten¬ 
drás  que  aterrizar  en  una  pequeña  base  en  donde  se  acabará  el 
juego.  Las  teclas  de  movimiento  son: 

—Arriba  fl 

— Abajo  f7 

Sin  más,  paso  a  describiros  el  programa  que  consta  de  cíes 
partes.  (Primero  deberás  teclear  la  primera  parte  y  salvarla  en  el 
casset,  luego  copiar  la  segunda  parte  y  salvarla  también. 
Rebobinar  La  cinta  al  principio  y  pulsar  SHIFT  y  R UN/STOP}, 


I D- 10:  Comeniariu:  nombre  dd  programa. 

30:  Modo  gráfico  2  del  Supcr  Expamter.  Color  de  pantalla,  fondo,  auxh 
liar  y  carécier. 

40:  Draw  que  forma  la  V, 

50:  Cirde  que  forma  la  O. 

6Ch  Draw  que  forma  la  Y  y  la  A, 

70:  Draw  que  forma,  junto  con  Circle,  forman  la  G. 


A  na  lis- 

9  ^  ta.-Una 

*  persona  que  ana- 

P  liza  y  define  los  pro- 

blemas,  y  desarrolla  algo¬ 
ritmos  y  procedimientos  para 
su  solución. 

AND. — Un  operador  lógico  que 
hace  que  siendo  X  una  premisa,  Y 
otra  premisa,  y  Z  otra,  el  resultado 
de  AND  de  Y,  X,  Z  será  cierto  si 
todas  las  premisas  lo  son,  y  falso  si 
cualquiera  de  ellas  lo  es. 

APL  (A  Programming  Language), — 
Es  un  lenguaje  de  programación  con 


un  juego  de  caracteres  y  una  sintaxis 
muy  peculiar,  fue  diseñado  princi¬ 
palmente  para  aplicaciones  matemá¬ 
ticas  o  para  cuando  se  necesita 
manejar  gran  cantidad  de  matrices 
numéricas  o  de  caracteres. 

Append, — Es  uno  de  Los  comandos 
de  la  unidad  de  disco.  Añadir  un 
archivo  o  elemento  al  final  de  otro. 

Argumento,— Variable  o  paráme¬ 
tro  independiente  que  es  transferido 
a  otro  programa  o  rutina. 

ASCII, — American  National  Stan¬ 
dard  Code  for  Information  Inter- 
ehange.  Es  el  código  estándar  utili¬ 
zado  para  el  intercambio  de  infor¬ 
mación  entre  distintos  dispositivos  o 


equipos,  utiliza  7  bits  para  codificar 
un  carácter  (8  si  incluimos  el  de 
paridad),  y  su  juego  de  caracteres 
esta  compuesto  de  caracteres  de  con¬ 
trol  y  alfa  numéricos. 

Backup.— Relativo  a  un  sistema, 
dispositivo,  archivo  o  posibilidad  de 
obtener  una  copia  de  seguridad  para 
evitar  que  por  error  o  fallo  de  fun¬ 
cionamiento  se  pierdan  datos. 

BAM, — Mapa  de  disponibilidad 
de  bloques,  lo  utiliza  la  unidad  de 
disco  para  saber  qué  bloques  están 
ocupados  o  libres  en  un  disco, 
BCD, — Notación  decimal  codifi¬ 
cado  en  binario. 

BIN. — Binario.  Relativo  a  una 
selección  con  dos  posibles  estados. 
Sistema  de  numeración  con  base  dos. 
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nds  informática 


s.a. 


Avda.  Barbera,  291 
tel.  (93)  71 1  28  61 
Sabadell  (Barcelona) 


Programas  MEGSOFT  en  cinta 
COMMODORE  64 


Conta  64,  Control  mensual  o  anual  de  ingresos  y  gastos. 
26  conceptos  diferentes  (23  de  gastos  y  3  de  ingresos). 
Posibilidad  de  apuntes  negativos,  100  apuntes  mes  o 
1200  anuales.  Presenta  dos  opciones:  Registro  y  ac¬ 
tualización  de  ingresos  y  gastos,  y  Contabilidad  y 
Análisis  financiero.  Listados  por  impresora.  Curva  gráfica 
de  los  valores  de  los  conceptos.  Totalización  mensual  y 
anual  de  conceptos  y  por  concepto. 

Precio:  6,000,-  pts. 

Quinielas,  Realización  de  Quinielas.  VisuaMzación  de 
estadísticas  por  equipos  y  por  partidos  dentro  y  fuera  de 
casa.  Historial  de  una  liga  y  de  las  divisiones  completas. 
Listados  por  impresora  hasta  del  formato  del  impreso  de 
quinielas.  Se  entrega  junto  con  el  programa  el  fichero  de 
la  liga  actual  y  el  de  la  liga  anterior  con  todos  sus 
resultados. 

Precio:  5.000,-  pts. 

Stock.  Permite  crear  un  fichero  en  cassette  con  ca¬ 
pacidad  para  650  artículos  y  150  movimientos  con  las 
siguientes  opciones:  Altas,  Bajas,  Consultas,  Modifi¬ 
caciones,  movimientos  de  stock  (entradas  y  salidas). 
Listados  por  pantalla  e  impresora  de  artículos  bajo 
mínimo,  listas  de  precios  y  movimientos.  El  fichero  de 
artículos  comprende  los  siguientes  datos:  Código,  des¬ 
cripción,  precio  de  coste,  precio  de  venta,  stock  mínimo 
y  stock  reai. 

Precio:  3.000,-  pts. 

Numismat.  Programa  similar  ai  FILOS  pero  para  co¬ 
leccionistas  de  Monedas.  Posee,  al  igual  que  el  Filos,  las 
siguientes  opciones:  Altas,  Bajas  y  Consultas,  Modi¬ 
ficaciones  y  listados  por  pantalla  e  impresora. 

Precio:  3.000,-  pts. 


Etiquetas.  Realización  de  cualquier  tipo  de  etiquetas  en 
impresora,  imprimiendo  todos  fos  datos  de  un  fichero. 
Capacidad  máxima  300  etiquetas  por  fichero,  pudién¬ 
dose  crear  ficheros  en  diferentes  cintas. 

Precio:  3.000,-  pts. 

Agenda.  Permite  crear  ficheros  en  cassette  con  los 
siguientes  datos:  Nombre,  Apellidos,  Dirección,  Pobla¬ 
ción,  Provincia,  Distrito  o  Código  Postal,  Teléfono  y  un 
comentario.  Capacidad  máxima  200  datos  por  fichero, 
pudiéndose  crear  ficheros  en  diferentes  cintas. 

Precio:  3.000,-  pts. 

Biblos.  Control  de  la  Biblioteca  particular  con  una 
capacidad  por  cinta  de  200  libros  con  todos  los  datos 
completos.  Listados  por  pantalla  e  impresora. 

Precio:  3.000,-  pts. 

Filos,  Control  de  colecciones  de  sellos  con  una  ca¬ 
pacidad  por  cinta  de  450  sellos  con  los  siguientes  datos: 
Referencia,  Año,  País,  Cantidad,  Precio  y  comentario. 
Además,  existe  la  opción  de  valoración  de  toda  la 
colección.  Listados  por  pantalla  e  impresora  por  años  y 
países. 

Precio:  3.000,-  pts. 

Monopoly.  Versión  del  popular  juego  totalmente  en 
castellano,  siendo  el  ordenador  el  que  controla  todas  las 
situaciones  del  juego  en  cada  movimiento.  Los  juga¬ 
dores  podran  comprar  terrenos,  edificar  casas  y  hoteles, 
vender  e  hipotecar  propiedades,  etc. 

Precio:  3.000,-  pts. 


EN  PRÓXIMA  APARICIÓN: _ _ _ _ 

Cajas  y  Bancos,  Control  de  la  caja  y  de  los  saldos  de  Cajas  de  Ahorro  y  Bancos,  con  fichero  almacenado  en  cinta  con  todos 
bs  movimientos.  Posibilidad  de  listado  por  pantalla  e  impresora.  Utilización  de  ficheros  de  histórico  de  la  Caja  y  de  los 
Sancos. 

Talleres  de  Reparación.  Control  de  un  taller  de  reparación  de  cualquier  tipo  de  productos,  con  realización  de  albaranes  y 
facturas. 

Plan  General  Contable.  Revolucionario  programa  en  cinta  que  permitirá  300  cuentas  de  Mayor  y  Auxiliares  y  200  apuntes 
mensuales,  con  listados  por  pantalla  e  impresora  de  cuentas,  apuntes,  balances,  etc.,  con  Altas.  Bajas,  Consultas  y 
Modificaciones  por  cuentas,  asientos  contables,  etc. 

Proveedores  y  Clientes.  Control  de  las  Cuentas  de  Proveedores  y  de  Clientes  con  la  introducción  de  movimientos  y 
listados  por  pantalla  e  impresora.  Posibilidad  de  realización  de  ficheros  de  histórico  para  el  almacenamiento  de  los 
movimientos. 

Nóminas  y  Seguridad  Social.  Programa  que  permite  la  realización  de  las  Nóminas  y  de  los  pagos  a  la  Seguridad  Social 
Creación  de  un  fichero  de  empleados  con  todos  los  datos  necesarios.  Permite  opciones  en  dicho  fichero  de  Altas,  Bajas. 
Consultas,  Modificaciones  y  listados  del  mismo  por  código,  D.N.I,  o  nombre. 


BUSCAMOS  DISTRIBUIDORES  LOCALES 


HO:  Draw  que  forma  parle  de  la  E. 

90:  Draw  que  forma  pane  de  la  E  y  la  R. 

100:  Draw  que  forma  la  oirá  pane  de  la  R. 

H0-Í50:  Runnas  de  presentación. 

E6Ü:  Carga  (LOAD)  automática, 

2a  parte: 

10:  Rotulo, 

20:  Borra  la  pantalla  gráfica  del  Su  per  Expande  r  y  vuelve  al  modo  de 
texto  normal  del  VIC 
30:  Protección  del  juego  de  caracteres. 

40;  Colocación  de  los  pixels  de  la  forma  ¡üxg,  para  los  caracteres  de  0  a  1 5: 
de  la  Arroba®1  hasta  U  G,  según  el  juego  I  del  código  FOKÉ, 
60-220:  Dalas  de  creación  de  caracteres  programadles. 

220:  Presentación  del  juego. 

230:  Inicia  al  VIC  al  modo  de  caracteres  programares. 

250:  Barrido  de  basura  de  la  pantalla  gráfica. 

260-265:  Variables. 

270:  Colocación  de  bordes  laterales. 

280-320:  Mamanitos  de  puntuación. 

330-370:  Imprime  obstáculos:  bloques. 

390:  Indica  naves  disponibles  y  puntuación. 

400:  indicador  de  fases. 

410:  Teda  pulsada. 

450:  Cada  einco  puntos  cambia  de  fase, 

490:  Retomo  de  bucle, 

5UO-57Ü:  Subrutina  que  coloca  barreras  laterales. 

600-690:  Subrulina  de  tecla  pulsada. 

610:  hace  avanzar  la  nave  hacia  adelante.  Si  llega  al  final  de  la 
pantalla,  vuelve  ai  principio. 

620-640:  Asciende  o  desciende  la  nave. 

650:  Comprueba  si  encuentras  un  marcianito.  Entonces  a 
liJOO. 


Primera  parte 

10  REH  VGYflGER, l.PRRTE 
20  RETI  ROTULO 

30  GEftPH I C2 - C0LÜR2* 2,7,1 

48  DRRW2, 20, 5BTQ70, 400 : DRfiW2 TO120, 50 

50  C IRCLE2 1 220 , 220 , 50 - 180  DRñU2,320, 
50TO370 , 2013  DRRW2TO420, 5G 
60  HRñU2 , 362 , 2O0TO362 , 408  DRRW2 , 459 , 
40010510, 50  DRRU2TO560, 400  IiRftW2, 488 
,25010535.250 

70  CIRCLE2, 640,220, 58, i 80 , 5 , 8S ■ DRRW2 
,  6S5 , 265TO640 , 265 :  URRl-12 , 850 , 50TO740 , 

56 

80  DRRW2TO740, 406  DRRW2T0858, 480  DRR 

W2, 750 i 225TO8Ü0, 225 

98  BRRN2 # 990, 2O0TO998 , 280  DRRU2T0998 

, 50 ■ DRRU2TO890 , 50 ■ DRRW2TO890 , 4O0 

1 00  DRHU2 , 890, 200TO990 , 400 

110  REGI  OH  1  CHRR  18,6,  "  C8HIFT0]  [  7CÜÍ1I1T  ] 

[ SHIFTP 3 "  :  CHRR  1 1 , 6,  "  CCOflMG 3  C 2SPC 3 ISC3SPC 1 
CC0NMMV1 

1 20  CHRR  1  £ ,  6 ,  "  [  COfIMO  }  LORD  I NG  CC0RMM 1 " 

130  CHRR  13i6,  “  CSHIFTL]  C7COMM(a3  CSHIFTU!] 

11 

140  CHRR 16, 1, " NEW ISPCJ GENERA TI0NCSPC] 

QF" 

150  CHRR1S,  0,  “SOFWñREtSPCtíOS.H. ,  19 
94 11 

1 60  POKE 63 1,131  POKE 198,1 


Segunda  parle 

10  ftfn  VÚYRGER 

20  SCNCLR ' ORRPHIC0 

30  P0KE52, 28  •'  P0KE56, 20 :  CLR 

40  FORT  1 =7 163TÜ71 68+8* 16-1  VERI.fi  PPG 

KET 1 ,  fil ; NEXT 

60  BfiTRÜ, 224,  156,130,  137,  130,156,224 

70  DRTR126, 253,219,255, 255, 195,255, 1 
26 

80  DRTR129, 66, 36, 24, 126,255, 165,36 
90  DRTR24, 24, 126, 189,69,36,36, 102 


660:  Si  choca  contra  un  bloque,  va  a  la  linea  730. 

670:  Si  en  la  Tase  once,  consigues  aterrizar  en  la  base,  va  a  la 
linea  1500, 

680:  Coordenadas  de  movimiento  de  la  nave. 

690:  Retorna  al  programa  principal. 

750-780:  Colisión  contra  un  bloque: 

760:  Sonido  de  explosión  de  la  nave, 

770:  Controla  el  numero  de  naves  auxiliares.  Si  ion  cero, 
acaba  d  juego 

780:  Retorno  al  bucle  principal. 
gÜO-840;  Puntuación  ai  comer  marciandos, 

8  10:  Sonido  de  destrucción  de  los  marcianos. 

820-830:  Aumentan  los  pumos.  Cada  diez  puntos  nave  extra. 
900-930:  Cambio  de  fase. 

905:  Indica  que  pasa  a  la  fase  tic  aterrizaje.  Si  Zl=fl, 

910:  Borra  bloques  y  mareta niios  para  pasar  a  otra  fase 
921):  Reconversión  de  variables: 

Aumentan  bloques. 

Disminuyen  mamanitos. 

Si  aún  no  es  la  última  fase,  indica  que  aparezcan  nuevos 
mardanúos  y  bloques. 

930:  En  la  última  fase,  pinta  la  pista  de  aterrizaje, 

1000-1060:  Pase  de  aterrizaje, 

1010-1030:  Dibuja  barrera  de  fondo  y  pista,  sólo  la  primera  vez.  Si 
DD=0. 

1040:  Impide  que  se  vuelva  a  pintar  lo  antes  dicho, 

1060:  Vuelta  al  programa  conductor, 

1 500- 1560:  Ll  cga  da  después  de  ate  rri  za  r, 

1510:  Dibuja  la  nave  ya  aterrizada. 

1520:  Mensaje  de  felicitación, 

J53Ü:  Introduces  el  nombre. 

2000-2150:  Subrulina  de  presentación. 

2300-2350:  Subruuna  de  sonido  de  nave  extra. 

2500-2510:  Final  de  juego. 


100  BftTR  68, 126,219,255,255,255,255, 

165 

1 18  BRTH0, 102, 153,24, 126. 153,36,66 
120  I/RTR60,  126,219,255,255.255,255, 1 
65 

130  IIRTR0,  126, 129, 189, 165, 189,  129, 12 
6 

140  DHTR0, 9,25, 127, 255,24,3,0 

150  DRTR129, 153, 189,255,255, 189, 153, 

129 

160  I.ÑTR165, 231 , 66,  £55, 219, 255, 255,9 

0 

170  BRTfi 1 26 , 255 , 255 , 255 ,255,255, 255 , 

126 

180  IiftTftG,  0, 0,0,0,0,0,255 

190  BRTR255, 1,1,1,1,1,1,255 

200  BRTR129, 129, 129, 129, 129, 129, 129, 

129 

218  I.RTR0, 0, 0, 0, 0, 0, 0,  B 
220  GOSUB20Q0 
236  P0KE36869, 255 

250  FORQW=0TO505 ■ PÜKE7680+QU, 15 : NEXT 

260  PQKE36879, 1 10 ■ Cl=5  El=10 : DI =7746 
■  El  =38466  F  1=8098 ;  81=38816 ;  Ml*=23 :  Cll  = 

1  ■  J J-7753 

265  KK=38473;Z1=1 ¡P1=0 
270  GOSUB560 : X 1 “0 : V 1 “8 
280  REM  MflRCI AMITOS 
290  FORKl=lT0f11 

300  H1*INT<RND<1)#14) : I 1 =INT(RND(1 )* 

17) 

320  R0KE JJ+H 1+11 *22,01 :PÜKEKfC+HÍ+Il* 

22, 4: NEXT 
330  REM  B0LGUES 
340  F0RV1=1T0B1 

350  L1*INT<RNIK1>*14>:N1*INTÍRND<1)# 

17) 

360  IFPEEK í JJ+L 1+N1 *22)=Q1 THEH350 
370  PÜKEJJ+L1+N1Í22, 1 1  P0KEKK+L1+N1* 
22,7: NEXT 

390  PR I  NT  '*  [  HÜN 1 C  RVS0N  ]  [  VEUCRñFTS :  "  J 
C 1 "  I CR5RR 3P0INTS ;  11 P 1 

400  PRIMT"  CH0MI  C2ÍCRSRDH2CRSF:R]  [RVS0N1 
CGRNÍFRSE"  ¡  Q1 
410  GOTO600 
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(Nuevo  curso  de  ordenador  personal  y  programación  Basic 


SI  VAS  A  SEGUIR  VIVIENDO 
EN  ESTE  PLANETA  NO  TE  QUEDES 

DESCONECTADO 


dominas 


lll■I^ITIKlH1^H^^Kl 


a  tienes 


ominen  tonos 


os  sectores 


Muevo  curso  a  distancia 
Ordenador  Personal  y 
Programación  Basic 


Te  ofrecemos  12  manuales  de 
lecciones  explicadas  paso  a  paso. 

Te  ofrecemos,  sí  no  Tienes  orde¬ 
nador,  el  COMMQDORE  64,  el  más  in¬ 
teresante  del  mundo,  para  que  prac¬ 
tiques  desde  el  primer  momento.  Te 
ofrecemos  un  cuadro  de  profesores 
que  te  orientan  continuamente  en  tu 
aprendizaje,  ¿Qué  pones  tú?  Pacien¬ 
cia,  Y  un  poco  de  voluntad. 

Con  esos  dos  instrumentos  te 
garantizamos  que  en  seis  meses 
serás  capaz  de  operar  con  cual¬ 
quier  programa  que  adquieras  y 
algo  que  te  gustará  más:  podrás 
crear  tus  propios  programas  para 
uso  profesional  o  personal:  gestión, 
administración,  archivo,  estadística, 
juegos,  estudios*..  Verás  qué  diverti¬ 
do  es  tener  paciencia. 


Ahora  puedes  hacerlo  de  una 
forma  sencilla  y  divertida.  Con  un 
dedo  de  la  mano.  Sin  saber  una  pala¬ 
bra  de  inglés,  Y  sin  moverte  de  casa. 

Gracias  a  un  curso  claro  y  entre¬ 
tenido  que  te  ayuda  a  sacarle  al  or¬ 
denador  todo  lo  que  tiene  dentro. 

Por  supuesto  que  no  te  estamos 
hablando  de  un  Manuaí  de  Instruc¬ 
ciones,  y  allá  tú.  Se  trata  de  un  pro¬ 
grama  de  aprendizaje  muy  práctico, 
diseñado  por  especialistas,  para 
que  nadie  se  aburra  a  mitad  de  ca¬ 
mino. 

Es,  para  que  te  hagas  una  idea, 
como  un  viaje  organizado  al  futuro. 
¿Quieres  una  plaza? 


Este  es  un  curso  diferente  a  rodas  los  que 
conozcas  Es  seno,  pero  sabiendo  que  no  eres 
una  máquina  Es  divertido,  pero  sin  oivider  que 
penes  que  sacarle  partido 

Consta  de  los  siguientes  elementos; 

-  12  manuales  de  lecciones,  preparados  pa¬ 
ra  aprender  enseguida  sin  perderse  en  teorías 

-  1  anexo  de  equival  encías 

-  Optativo;  Un  ordenador  personal 
CQMMQDQRE  64.  con  su  unidad  de  cas  en  es 
para  practicar  desde  ef  primer  minuto,  porque 
como  se  aprende  a  dominar  los  ordenadores  es 
trabajando  con  ellos 

-  Amplio  número  de  programas  y  una  orien¬ 
tación  continuada  de  tus  profesores 

No  son  necesarios  conocimientos  especia¬ 
les  de  ningún  úpo 

-  Duración  =  Seis  meses  aproximadamente 
dedicando  dos  Horas  dianas 

-  Sistema  de  aprendí  z  ai  e  A  distancia 

Cada  manual  incluye  ejercicios  amenos  pa¬ 
ra  realizar  en  el  ordenador  El  profesor  contesta  a 
vuelta  de  correo  con  las  correcciones  v  los  con 
sejes  necesarios 

PreciD  El  curso  completo  por  algo  mas 
del  precio  del  propio  ordenador  V  con  facilidades 
de  pago. 


rURSgv 


Otros  de  los 
cursos  CCC: 


Para  hahlar  con  los  dedos, 
te  echamos  una  mano 

El  idioma  del  futuro,  se  practica  con  los 
dedos.  Si  quieres  aprenderlo,  la  oportuna 
dad  está  en  tu  mano:  Envía  este  cupón. 


Electrónica. 

Radio,  TV 
Técnico  en 
Energía  Solar 
Instalador 
Electricista. 

Técnico  en 
Fontanería 
Graduado  Escolar 
Guitarra , 
Contabilidad 
Mecánico  de  motos. 
Dibujante  de  cómics. 
Inglés  [con  casette 
o  por  video  1. 

Auxiliar  Enfermera. 
Puericultura 
Estheticiene 
Peluquería. 

Masaje  y 
Digo  opresión. 

Corte  v  Confección 


PARA  APRENDER 
EN  CASA 


Deseo  información  gratis  y  sin  compromiso 
sobre  el  curso  de 


Nombre  v 


apellidos 


Dirección 


Población 


Provincia 


Teléfono 


Envié  este  cupón  a: 

CCC,  alto  de  Mrraconcha  Apdo  666  20000 
Tfno  (943}  467600  SAN  SEBASTIAN 
o  a  CCC  Apóo  17  222  280B6  MADRID 


Centra  de  Ensenan/a  a  Distancia  autorizado  en  aplicación  del  Decreto  2B41/T1SE 


450  l FP 1 >=5 +NN T  HEN900 
490  OÜTO390 

500  REM  BARRERAS  LATERALES 

Ü10  FGRQQ-0TO2I = PÜKE7724+GQ, 11 -P0KE3 

6444+00,0  NEXT 

520  PÜKED1 ,11  PQKED  1  +  1,11:  ROf'EDl  +20 , 
11  :P0KED1+21. 11 :PGKEItÍ+22, 11 :P0KED1+ 

43.11 

530  PDKEE 1,0  POKEE 1  +  1,0: ppKEE 1 +26, 0  = 
P0KEE1+21 , 0 1 POKEE 1 +22 . 0  POKEE 1+43, 0 
540  PÜKEF1-22, 11 : PÜKEE1-1 , 1 1  PÚKEFl, 
11 :POKEFl+l, 11  POKEE 1+20, 11  PÜKEF1+2 

1.11 

550  P0KEO1-22 . 0  POKED1-1 . 0 :  POKEG 1 ,  0  : 
POKEG 1+1,0  POKEG 1+20.0: pQKEG 1+21,0 
560  FOROW-0TO21 : PGKE812Ü+QW, 1 1  R0KE3 
8640+011, 0  NEXT 
570  RETURN 

600  REH  TECLA  PULSADA 

610  Xl-Xl+1 : IFX1>21THEHB1=S  X1=0  GOT 

0330 

620  01 =PEEK( 19?) 

630  I FO 1 =39THENV 1 *V1 - 1 

640  I FO 1 =63TH£NY 1 =V 1 + 1 

650  I FPEEKÍ 7746+X 1+V1 *22 )=Q1 THENGOSU 

B600 

660  IFPEEK (7746+X 1 +V1 *22)  =  1 1  THE  11750 
670  I FPEEK C 7746+X 1 +Y 1 *22)= 1 3THEH 1 500 

680  P0K£7746+X1+Y1*22, 0  PÜKE38466+X1 


+V1*22, 7 ' POi  E7746+X1+Y1+22, 15 
690  GOT0450 
750  REM  CHOQUE 

760  PGKE36S78, 15  P0KE36877, 210 -FORTT 
= 1 TO300  NEXT  P0KE3687? , 0  FORT= 1 TO500 
:  NEXT 

770  C1=C1-1  IFCI=0THEN2500 
780  X1=0: Yl=8  GOTO390 
800  REM  PUNTUACION 

810  P0KE36878, 15 : P0KE3S876, 240 : FORTT 
=  1  Tul 00  NEXT  P0KE36876, 0 
820  P1=P1+1 

830  I FP 1>= 1 0+GGTHENC 1 =C 1 + 1  GG=GG+10: 

GO3UE2300 

840  RETURN 

900  REM  CAMBIO  DE  FASE 
905  I FQ 1 = 1 0THEHZ1 =0 
910  FORCA=0TO374 : P0KE7753+CA, 15  NEXT 
:  OOSUB520 :  NN=NN+5+Q  1  :M=M1-1  01=01+1 

920  X1=0  :  Yl=8  :  Bl  =  18  :  Bl=BS+C'l+4  '  IFZ1® 
1THEN280 

936  GOTO 1 300  GOTO390 

1000  REM  ATERRIZAJE 

1Ü05  JJ=309S+? : KK=38818+7 

1010  I FDD=OTHENFORFF= 1 TO 1 3  :  P0KE7789+ 

FF*22, 1 1 : POKE3S509+FF+22 , Ü  NEXT 

1020  IFOD=0THENPÜKEJ J, 11  FÜKEJJ-21 , 1 

1  POKEJ J~22, 1 1  POKEJJ-23, 1 1 ' POKEJJ-4 

3, 13 


Simón 

Son  programas  rea-  i 
lizados  con  ei  cartu¬ 
cho  de  ampliación  de 
Basic,  el  SIMON’S 
BASIC 

Lo  que  más  echa¬ 
mos  de  menos  algunos  de  los  usuarios  del  64  son  los  comandos 
que  permitan  trabajar  en  alta  resolución  de  forma  sencilla  y  que 
el  SIMONAS  incorpora.  Por  eso  como  pequeño  ejemplo  de  sus 
capacidades,  mando  estos  dos  primeros  y  pequeños  programas 
grabados  con  dicho  cartucho. 

El  primero  dibuja  una  función  trigonométrica  dándole  dos 
parámetros  y  e!  segundo  es  una  pequeña  demostración  de  la 
posibilidad  de  crear  bonitos  dibujos  en  alta  resolución  con  una 
facilidad  de  programación  asombrosa. 

Los  que  lo  hemos  intentado  sabemos  el  montón  de  lineas  en 
BASIC  que  serían  necesarias  para  hacer  esto  mismo  y  la  lenti¬ 
tud  con  que  serían  ejecutados.  Ambos  problemas  son  sobrada¬ 
mente  obviados  con  el  SIMON  T$, 

Y  esto  es  una  de  las  muchas  facetas  en  donde  ei  SIMONAS 
llena  el  hueco  que  en  su  configuración  mínima  posee. 


100  RB*0 : CÜLOUR0, 0 : PPINT" ÍCLR ] CYELJ 

ii 

103  PRINTRTC  13i B)i,REPftESENTiRCIQNM  ■  P 

R1NT 

110  CENTRE " ORñF I CRCSPC1 DE CSRC] FUNGI 

QNES11  :  PRINT  ■  PRINT 

115  CENTRE" TR I GQNQMETRICRS'* 

120  N**10 :  EXEC  ESPERA 
125  PRINT’1  CCLR3 11 

130  PR I NT AT  <  5  j  B  V’  I NTfiÚDUCE  C  SPC ] PftRfi 


Luis  Pellicír  Lorenzo 

Conde  de  Tor  recede  Ira,  122*3*  A 

.16108  VIGO  (Pontevedra) 


’s  Grafic 


METROS" 

135  PRINTHT <8, 10>"A[SPC3 i CSPCJ"; 

140  FETCH" [CRSRD3 " , 3, A 

145  PRINTRTÍ8, i2)"BCSPC3 : CSPCJ" J 

150  FETCH “I CRSRDI" , 3, B 

155  PRINTAT (10, 17) ” SON t SPC I CORRECTO 

S1SPCI <SXN) CSPCI " í 

160  FETCH" [CRSRRI " ,  1 ,  Aí 

165  IFA*-"N"THEN125 

170  lFAÍO"S" THEN155 

175  PRINT" CCLRI" 

160  Q- 1 00 : SQ= 1 60 : SU» 1 00 : W=3 : 2- 1 . 25 
185  IFHB-0THENHIRES1,0 
190  CSET2 

195  FORT =0TO2*itSTEPirX  180 
200  M»Q*SINCTitiW) 

205  X"SQ-INT(M*Z*COS(A*T)) 

210  V“SW_INT <M#SIN(B*T) ) 

215  PLOTX, Y, 1 
220  NEXT 

225  TEXTB, I, "[CTRL  A]P[CTRL  BIULSACSPCI 
[CTRL  A] RETURN [CTRL  B I [SPC30ISPC JESP 
ERA", 1,1,7 
230  PAUSE60 

235  TEXT8, 1, "[CTRL  AIPCCTRL  B3ULSA1SPC3 
[CTRL  HIRETURNtCTRL  B3 CSPC30CSPC3ESP 
ERA", 0,1,7 
243  NRM 

245  PRINTHTí 4, 9) "OTRO[SPC)DIBUJO[SPC] 
<S/N) CSPCI"  i 

250  FETCH11  CCRSRR] ” ,  1 , ft* 

255  IFA*0"S"ANDA*0"N"THEN245 
260  IFA*="S"THEN270 
265  PRINT" CCLRI " :END 
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1030  IFDD=0THENPOKEKK,  2  i  PÜKEKK-21 , 2  ■' 

POKEKK-22,2 :  P0tfEKK-23j  2  ¡  POKEKK-43,  7 

1040  DD=1 

106Ú  GÚTO330 

1500  REM  LLEGADA 

1510  POKEJJ-43, 0  ‘  POKEKK-43,  ? 

1520  FRINT" CH0MIC9CRSRD] E5CRSRR3CRVS0N] 
UELL C SPC 3 DONE [SPC 3 ! * “ : FORT* 1 TO20B0 ¡ N 
EXT 

1530  P0KE36SS9, 240 : N$=" " ■ INPUT"[CLR3. 

[ 3CRSRD  3  C  CRSRR  3  £  RVSON  3  ENTER  C  SPC3  VOUR 
[SPOT MAME  "JNí 

1560  FORT=1TO7000 : NEXT ; GQTQ230 
2000  REM  PRESENTACION 
2010  P0KE3S8 79 . 25 PR I MT "CCLR3E RVSON 3 
C  GRN ] [  6CRSRR 1 VOVAGER " 

2315  P0KE646> 32 

2620  PR  I  NT  "  C2CRSRMtCRSRR3  DEBES  CSPC1 
COMERTE  C  SPC  3  EL [ SPC  3  N . “ 

2030  PR I NT " C CRSRR3MAVOR [ SPC 3 DE [SPC 3 M 
flRi~  I  AHITOS'1 

2040  PR I NT " [ CRSRR  3  VC  SPC  3EV I TAR [ SPC  3C 
OL I  SIGNAR" 

2050  PRI NT "[CRSRR 3 CONTRA [SPC 3 LOS CSPC 3 
BLOQUES . " 

2068  PR I NT " C  CRSRD  3  C  CRSRR  3  CADA  C  SPC  3  5  E  SPC  3 
MUÑECOS CSPC 3 COMI" 

2070  PRI NT "[CRSRR] DOS [SPC 3 PASARAS CSPC 3 
A[ SPC 3  OTRA " 


20S0  PR I  NT " [ CRSRR  3  F ASE [ SPC  3  V [ SPC  3  CAD 
R[ SPC  3 1 0 [ SPC  3  PUN- " 

2085  PR I NT " [ CRSRR 3 TOS £ SPC 3NAVEÍSPC3E 
XTRA. " 

2090  PRINT" ÍCRSRD3 [CRSRR3ELÍSPC3  JUEG 
OT SPC 3 CONSTA [SPC 3 DE CSPC 33" 

2100  PR  I  NT  “  [  CRSRR  3  FASES  [  SPC:  3  V  [  SPC  3  EN 
[ SPC  3  LA [ SPC 1ULT I MA “ 

2 1 1 0  PRI NT" [ CRSRR  3  TENDRAS [ SPC  3 QUE C  SPC  3 
ATEF‘R  I  ZAR11 

2120  PR I NT" C CRSRR 3 EN [ SPC  3 UNA [ SPC  3 PEO 
)  IEHACSPC3BASE. " 

2 1 30  PR I NT " E2CRSRD ] [ 6 CRSRR 1 [RVSON 3 PU 
LSRCSPC3  [RED3HBLU3  " 

2140  WAIT197.3I 
2150  PRINT"[CLR1" : RETURN 
2300  REM  SONIDO  NAVE  EXTRA 
2310  PQKE3S87S, 15 

2320  FORSO-1T02 : POKE36875 ,  249 ¡ FORT= 1 
TO50 : NEXT : POKE36875 , 0 ' FORT* 1 TO 1 50  NE 
XT 

2330  P0KE36875 , 24Ü  FGRT=1TQ30  NEXT¡P 

0KE36875 , 0 ' FORT* 1 TO30G  NEXT 

2340  HEXTSQ 

2350  RETURN 

2500  REM  FINAL  JUEGO 

2510  PRI NT" [HOM3I10CRSRD3 [RVSON 3 C6CRSRR] 
G AME CSPC 3 O VER" 

2520  FORT* 1 TO7000 ¡ NEXT : GOTO230 


270  PRINTAT (4, 11) "ENCIMACSPC3DELISPC3 

AUTERI OR [ SPC  3  <  S/N ) [ SPC  3 " i 

275  FETCH" [CRSRR] " ,  1 , Bí 

280  IFBÍ-"S"THENAB*1 1G0T0125 

285  IFB**"N"THENAB"0 1 GOT0125 

290  GOTO270 

295  END 

300  PRQC  ESPERA 

305  PAUSE  " [HOM3 [22CRSRD3 [5CRSRR3 [RVSON3 
[  5SPC  3  PULSA [ SPC  3  RETURN  C  SPC  3  O [ SPC  3  ESP 
ERAÍ5SPC3 [RVS0FF3 " , N 
310  END  PROC 


100  CO*  OUR0.0 

105  HIRES1.0 

110  FORT-0TO200 

115  LINETJT,200-T, 200.2 

120  NEXT 

125  FORT*0TD200 

130  L I NE200-T j  200  , T , 200-T , 2 

135  NEXT 

140  FÜRT-0TO100 

145  LINE100-T.ia0-Til00.Ti2 

150  LINE1B0+T, 100-T. 100. T. 2 

155  NEXT 

'60  FORT"BTO100 

165  LINE1B0-T. 100-T, T, 0,2 

170  LINE100+T. 100-T, 200-T, 0,2 

175  NEXT 

180  BLOCK0 , 0 , 200 , 200 , 2 
185  BLOCK0.0, 200,200, 2 
190  BLÜCK0, 0,200,200,2 
195  BLÜCK0, 0,200,200.2 
208  PAUSE 1000 

READV. 


r 


RECilSTEH  LATELA 
CONTINENTAL,  S.A. 
Balmes-297,  pral.  2*  A 
BARCELONA-* 

Tdéf.  (93 1  20U  ¡8  99 
Información:  Sr.  H.kKLK 


NUESTRA  EMPRESA 
AL  SERVICIO  DE  TODOS 

DEPARTAMENTO  COMERCIAL: 

—  Microprocesadores  >  o  rete  nd  dure  i  de  gestión  (gama 
Commodure)  para  d  particular  y  tmpresa 

—  Programas  educativos,  de  juego*  >  de  diferentes  aplica- 
dones.  {Gestión,  contabilidad). 

DEPARTAMENTO  DE  ESTUDIOS: 

—  Cursos  Programación  Basic  s  CdboJ. 

—  Cursillos  de  grabación. 

—  Prácticas  con  ordenadores  y  micro  en  la  propia 
Empresa. 
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Battle  Zone 


“BATTLE  ZONE", 
es  una  lucha  en  el 
desierto  en  la  que 
debes  matar  a  los 
tanques  enemigos  que 
se  multiplican  al  avan¬ 
zar  el  grado  de  dificultad. 

Tu  tanque  se  mueve  con  la  palanca  de  juegos  hacia  la  derecha 
hace  girar  el  tanque  en  el  sentido  de  las  agujas  del  reloj,  hacia  la 
izquierda  en  sentido  contrario,  para  avanzar  hacia  atrás,  se 
dispara,  como  es  normal,  con  el  botón  de  disparo.  Dispones  de 
dos  tanques  en  cada  pantalla. 

Se  necesita  una  expansión  de  memoria  de  tres  k. 


José  Ignacio  \randa  Ilota  (15  ados) 


1503  Vt*S6N  <  XT!<RNB3  )  -  SGN  C  XT  XAH  B4  ) 

1504  TG=t-SGNCXTÍífiNr32>  ¡  IFTG=1THENK» 

C  L=B : GOTO? 0OÜ 

1519  IFXI=0TH£NPOKE 36875,0  GOTO 1522 

1520  TR=TH-:-ÍI  1FTÑ=STHENTFI=1 

1521  POKE3É873,140¡ IFTfl«-lTHENTfl»? 

1522  IFVI— 1THEN26O0 
1525  RETURN 

1 800  PQKE646 ,  14  : PRINT " [CLP ] [ RVSON) C2l COMM* 1 


1801  F0RT=1T019 

1 802  PR I NT " I RVSON HCÜNM+H  193PCHC OMM  +  ] 
" ¡ NEXT 

1803  PRINT" CRVSONl C2I COMM+3 “  RETURN 
2000  OH  í  Tft+ 1 >  00 TO2650 / 2080 , 2100,2150 
,2180, 2200 , 2230 , 2270 

2050  I FPEEK  7680+C+B-22JO 1 60THEH1 40 
00 

2051  B=B-22'TV=22¡ RETURN 

2080  I FPEEK C7630+C+B-21  XM60THEN140 
00 

2081  B-B-22 : OC+1 : TV=21 : RETURN 

2100  I  FPEEK  <7680+C+B+lK>160THEM  1400 
0 

2101  C=C+1  TV»-1 : RETURN 

2150  I FPEEK  í 7630+C+B+ 1 +22) O 1 60THEN 1 
4000 

2151  C-C+l  B*B+22 : TV=-23 : RETURN 

2180  IFPEEKC7680+C+B+22) O 168THEN1 40 
00 

2181  B=E+22  TV=-22 ;  RETURN 

2200  I FPEEK  í  7680+C+B+22- 1 ) 0 1 60THEN 1 
4Ü00 

2201  B=B+£2-C-C-l ¡TV=-21  RETURN 
2230  IFPEEKC  7680+C+B-l  >O160THEN1400 


I  POKE650, 1  GOT014010 
10  TV=T FORTUITOS 

I I  Tflí  ■'  T  )=CHRÍ  (  T+68  1  NEXT 

50  F0RE= 1T0RF : P0KE768Ü+C+B, CTH+5) ¡P0 
KE7680+C+B+TV, 160 

51  GOSUB1500 

52  I FFt= 1 THEN6000 

53  I F  V I O0THENPQKE36S77 , 140  G0TO55 

54  F Olí E 36 877 , 0 

55  UD*13¡ IFRF>0THENGOSU87000 

56  GQSUB 12000 

57  NEXTE  GOTO50 

1000  P0KE32. 24 : PÜKE56 , 24 

1001  P0KE36869, 255 

1002  FGRT=1 T0136 

1003  REREN  P0KE7167+T ,  R 1  NEXT  ■  G0TG1 10 
0 

1050  BRTR255, 192, 160, 144 . 136, 132,130 
,  129,255,3,5,9, 17,33,65, 129 

1051  HfiTftl29, 130, 132, 136, 144, 168, 192 
,255 

1052  DRTR129, 65, 33, 17.9,5,3,255,255, 

195, 165.153, 153, 165, 195,255 

1 053  DRTRS,  8,251,235, 235 , 235 , 235 , 255 
,0,2,8,252,236, 168,236,252 

1 054  KflTñO ,  2-52 , 236 , 234 , 236, 236, 252 , 0 
,252,236, 168,236,252,8,2,0 

1 055  DfiTfl255 , 255, 235, 235,235,251,8,8 
,63,59,42,59,63,32, 128,8 

1856  DRTflO, 63, 59,  59, 171,59,59,63,0, 1 
28, 163,59,42,59,63,0 

1059  DRTFU2, 12, 42, 42, 42, 42, 34, 5! , 0, 0 
, 195.40,48,40, 195,0 

1060  BRTR0, 0,20,60, £0,0, 0,0.24, 36, 12 
6, 1C2, 102,60,24,36, 102 

11Ü0  PRINT" CHOM)" 

1105  FORQ=1T03 

ni©  n»iNTCRNr<i>#ie)  ¡  ifr=ftneniu0 

lili  D=INT<RHDÍ1)#3>+1 ¡ FQRW=1T0B ■ PRI 
NT : NEXTW ' GOSUB1200 
1115  NEXTQ: GOTO 1300 

1200  P0KE646, 6 : PRINTTRBCfi) "IWHT) C RVSOFF) 
@C RVSON í ICOMMT] CRVSOFF ]fl" 

1201  PR I N TTRB  < fl  > " C  RVSON  K  CÜMMG ] C RVSON ] 

[ SHI FT V ) [  RVSOFF I  C  RVSOH 1 C  COMMM  3 " 

1203  PR I  NT  TRB<  fi ) " I RVSOFF 3 B C RVSON] C COMM0 3 
C RVSOFF ]C"  RETURN 

1300  FORTUITOS 

1301  I NT <RNBC 0*505) ¡ I FPEEK C76S0+R 
KM60THEH1301 

1302  FOKE76S0+R, 4 ■ POKE38400+R, 1 

1303  NEXT  GOTOl 4102 

1 500  PÜKE37154 , 127  XT8«PEEK< 37152  >RN 


2231  C-C-1‘TV»1  RETURN 

2270  I FPEEK C7680+C+B- 1 -22  ><>1 60THEH 1 
4000 

2271  C=C-1 ; B=B-22¡ TV*23  RETURN 

5008  0N(TR+1  'GOTO5010, 5020, 5030,5040 
,5050,5060,5070,5680 
5010  FI=-22¡ DI=22: FE=1  RETURN 
5620  F I =-21 : DI =21  FB- 1  RETURN 
503O  FI=+1  DI=-1  FB= 1 'RETURN 
5040  FI*23'DI*-23:FB=t 1 RETURN 
5050  F I  =22 •'  DI  =-22 ¡  FB=  1  :  RETURN 
5060  FI=21  Iil=-2i  FB=1  RETURN 
5070  FI=-1  DI=1  FB=1  RETURN 
5030  FI=-23 : DI =23 : FB= 1 ¡RETURN 
6008  Í10=M0+FI  ¡  I  FPEEK  (  7680+K+L+MO  )  0 1 
60THENPOKE7680+K+L+MQ-FI , 168  FB=0 ■ GO 
TO9000 

6001  POKE7680+K+L+NO, 15  POKE7680+K+L 
+MO+DI , 160 : G0TÜ53 

7000  WC-0 ¡ CW=0 ¡ IF J í E ) =CTHEN7500 

7001  IFJ(EKCTH£NJ<E)=JÍE)  +  1  ¡WC=-1  ¡Q 
OTO7603 

7002  J(E)=JCE)-i :WC=1 

7003  IFH<E)+J<E)=C+BTHEN14000 
7G04  GOTO7S0O 

7500  I FHCE )  =B+220RH( E )  =B-2£flNBJ < E)=C 
THEN14000 

750 1  I FH<E  »BTHENHCE>=H  í  E  >  ■ -22  ¡  CW=22  ¡ 
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INFORMATICA  Y  EDUCACION 


O 


<IA.  ESPECIALIZADA  EN  EQUIPOS.  SOFTWARE  Y  SERVICIOS  PARA  LA 

ENSEÑANZA  TANTO  DE  INFORMATICA  COMO  DE  OTRAS  MATERIAS. 

°DiSTRIBUYE  CON  CONTRATO  EN  EXCLUSIVA  PARA  TODA  ESPAÑA: 

—  □  Red  local  ED  NETdesarrollada  por  BSP,  capazlde  conectar  hasta  2  50 
puestos  al  ordenador  central,  siendo  éste  un  C*64,  También  permite 
que  estos  puedan  utilizar  dispositivos  de  disco  duro  o  flexible,  etc.  y 
que  desde  un  punto  master  se  controlen  todos  y  cada  uno  de  los 
puestos-alumno. 

□  Control  de  automatismos.  Permite,  desde  el  C-64,  controlar 
32  parámetros  de  entrada  y  otros  tantos  de  salida  de  la  máquina 
o  máquinas  que  se  quieran  automatizar. 

□  Control  de  robots.  Permite  desde  el  C-64  controlar  robots. 

I— '  Pantalla  digital.  Maneja  el  ordenador  al  tacto  de  la  pantalla. 

□  Paquete  Mágico.  El  profesor  puede  preparar  cualquier  asignatura 
para  ser  enseñada  y  controlada  a  través  del  ordenador. 


12006  RETURN 

12007  WM=H  <  WZ + VF  > + J  <  U  3 + VF  >  +  IC + L  l  J 

1 2003  PÜKE  7680+1#!  -  lí  PGK.E38400+UM  *  0 
RETURN 

14000  F-Ot E7680+B+C,  17  PÜKE3840B+B+C 


GOT 07503 

7502  H t. E )  =H i E/  +  22  CU-- 22  GOTG7900 

7583  IFH ' E>+ Jí E) =C +BTHEN 1 4000 
7504  GOT 07900 

7800  I FPEEK  ■'  7680+  J -  E  ■  +H-'  E  > )  OI  60THEN 

J(E>=J' E>+WC  Ni"  =0  0010750 1 

7900  1 F PEE»  1 7 £06+ Jí  E  >+HCÉ>  K>  l 60THEN 

Hf E>=H< E)+CW  '■  RETURN 

8000  POPE  7 660 + H  <■ E  )  +  J  í  E . 1  >  W 0  P0KE7 6 80+ 

H  '■  E  ,■  +  J  ■'  E  >  +NC+CN ,  1 60  PE  TUPO 

9000  P0=K+L+M0  [10-0  0V=RF  5C=0 

9010  F0RHB-1T02  F0RVE=SCT0GV 

90 1 1  I FPO-  H(  VE  >  +  Jí  VE  ’>THENGOTO9040 

9012  H EXT VE  SC=HZ+ í : GV=FV+WZ+ 1 : NEXTH 
E i G0T053 

9040  POKE7680+  o  VEj+H(VE) , 160 

904 1  F0F‘ijH=VET0GV  ■  H <  OH =H'  GH+ 1 )  Tí  GH 
)=JCGH+n  NEXTGH  RF=RF-1  IFHB0.1THEN 
RF=PF  + 1  FV-FV-t 

9042  PQKE36876 ,  180  IFRF+FV=@THENKEST 

OPE  P0KE36S76, 0 : GOTO  14010 

9Ó4  3  POK E 36876 , 0 :  2*040 53 

9100  T=0 

9101  F0RT=1 T01NTÍ  R’F+2  > 

9102  TiF=INT <. RNi< *  1  ■ +!?,'  +  ! 

3103  FD=INT í RHD í 1 < 4 1 7 >  + 1  FD=FD*22 

9 1 04  I FPEEK < 7680+DF+FB >  =  1 É0THENHL T )  = 
FD  T ■ 1  .=DF : PÜKE 7680+FD+BF , 16  P0KE3S4 
ÚÜ+  IiF+FD,.  3  G0T091 06 

9105  GOTO9102 

9106  HEXT  GOTO9150 

9150  DF= I NT íRNBíl >*174+1 

3151  FINI NT  < PHDC 1  +17+1  FB«FB*22 

9152  1 FPEEK í 7680+DF +FD >  =  1 66THENC=DF : 
B=FB  RETURN 

9153  GOTO 3 150 

1 ] 000  IFPF> 1THENND=1 4  E-E+RF : GOSUB70 
00:F.=E-RF 

1 2000  I F F V= OT HENR E TURN 

1 2©0 1  VF= VF +11 FVF3FVTHENVF = 1 

1 2002  UD= 14  FINE  E-WZ+VF  GOSUB7000  E 


14001  P0KE36877 , 220 

14002  F’l  l-PN - 1  IFPN  OTHEN H 050 

1 4  003  FORR- 15T013TEP-1  FOPT-1 TO50  PO 
KE 36873  *  R : NEXT  T  NEXTP 
14O04  PGKE36877..0  ROI  E36878, 15  HB= 1 
14Ü05  P0KE7688+E+C . 87 
14006  GOT014 1 90 

14018  CLP  PhN=PÉEI'  ' 650)  ■  PÜKE650,  PAH+ 

1  D I HH  í  40 ) . J  í 40  >  , U2 í 40 >  PN=2  GOTO  1 4 1 
00 

1 4 0 5 0  POK  E 368 69  240  P OFE 646- F  PAN -PE 
EKÍ650)  :  P0KE3687S  *  O 

1 405 1  PR I NT" C  CLP ] SECSPC 3HC ABO E SPC i " 

14052  F  R I NT " C  C  RS RD ] HAS  t  SPC ILLEOhDOCSPC] 
flCSPCJLRCSPCl " 

14053  PRINT" CCRSRBJ PANTALLA" .PAN 

14054  END 

14100  RESTÜRE  DOS  LIE  1 800  PÜKE  6  4b*  14  0 
OTO  1 000 

14102  PQKE646. 14  RF=PAN  FV=PhN  WZ=Ph 
N 

14103  PoKE36878i 10  POKE 36879. 149  POK 
E  36878..  <  PEER  <  36878  >  AND  1 5  'ÜR1'  16+PAN)  : 

E=0 

14105  P0KE36875 . 0  POKE 36877  -  0  i GG3UB9 
100 

14107  FORWH=1TO20 

14108  P01 E7680+C+B. (Th+5> 

1 4 1 09  G03UB 1 500  PGKE763Ü+C+B+TV, 1 60 
NEXT 

14110  IFHB=lTHENHE-8  RETURN 

14111  FÜRT=1TÜUZ*2 

14112  F0KE36875.»  140+- T*2>  FORS=íTÜ50 
: NEXTS = PÜKE 36875 , U  F0RS=1 TÜ5Ü 

14113  NEXTS  HEXTT 

14120  I FHB= 1 THENHB=0  RETURN 

14121  DOTO10 


IFRNDÍ 1 )>. 5THEH12087 


Los  chinos 


Gana  el  que  llegue  antes  a  las  partidas  lijadas  por  el  jugador 
al  principio  del  juego, 

PARECE  COMPLICADO  PERO  EN  LA  PRACTICA  ES 
MUY  FACIL, 

i  ¡Ojo!!  Cuidado  con  enfadarse  con  el  ordenador  o  con  pi¬ 
carse  en  el  juego.  Os  digo  esto  porque  lo  sé  por  experiencia, 

NO  INTENTEIS  ENGAÑARLO  PORQUE  OS  LLEVA¬ 
REIS  UNA  GRAN  SORPRESA. 

] ¡  Animaos  y  desafiad  a  la  máquina!! 


Este  programa  está 
basado  en  el  tradi¬ 
cional  juego  de  los 
chinos  que  tanto  se 
juega  en  los  bares  con 
los  amigotes. 

Se  juega  contra  el  ordenador, 

A  este  programa  le  tengo  mucho,  muchísimo  cariño  va  que 
con  él  he  aprendido  a  dominar  el  juego  perfectamente  para  más 
tarde  ganarle  a  mis  compañeros. 

E¡  juego  es  el  siguiente; 

El  ordenador  te  desafía  con  la  pregunta  “¿a  la  de  cuántas 
partidas  jugamos?”.  Tú  fijas  libremente  el  número  de  partidas  a 
jugar 

Seguidamente  te  pregunta  “¿Cuántos  chinos  tienes  supues¬ 
tamente  en  tu  mano?”.  Tú  debes  de  contestarle  con  un  número 
comprendido  entre  0  y  3  inclusive. 

Más  tarde  te  dice  “¿Cuántos  pides?”.  Tú  tienes  que  contestar 
con  el  número  que  crees  que  Tiene  él  en  su  mano*  sumado  con  el 
que  tú  tienes  en  la  mano. 

Es  muy  interesante  porque  una  partida  pides  tú  primero  y  en 
la  siguiente  te  pide  el  ordenador. 


Rafael  Alberto  Garda  Medina 
Carretera  de  Granada,  n°  4,.  3C 
Guüdix  (Granadal 


10  REM  ##  LOS  CHINOS  *# 

20  FGKE532O0 , 0  RQKE332S 1 , 1 3  -  2=0 : K*0 

25  PRINT'TBUOtCLR]"  :  !NPUT"C4CRSRB]ñ 
[ SPC ILft [ SPC 1  DE  t SPC ] CUANTAS C SPC 1  PARTI 
DAS C SPC  1  JUGAMOS" ;  14 :  F0RJ“1  TOW  :  PRINT'*CBLK] 
[ CLRT " 

26  PR I NTTAB  í 1 5  > " C CRSRD J  t  RVSON  ÜLOS t  SPC  3 
CHINOS’1 

30  PRINT" CBLU3" ; PRINT" IRVS0N3TU : "Z"P 
UNTOS  N " [ 1 6CRSRR ] C  RVSON ] Y0¡ " K " PUNTOS " 


■44/Commodore  World  Diciembre  1984 


35  IFZ-WTHENPRINT" [RVSON] CSPC3MErSPC3 
HftSCSPC  ]  GANRDDESPC 1POR"  J  Z-K "  PART  I  LAS 

I SPC  3  ENHORABUENA  II!''!  GOTO400 

36  I FK-UT HENPR I  NT " [ R VSON ] [ SPC ] JA . JA , 
JACSPC JTE!SPC]HECSPC]GANADDrSPC]POR " 
K-Z "PARI IDAS! I ! " 'GOTO400 

40  PR I NT " T  BLK ] C  CRSRD ] " 

60  I NPUT " CUANTOS  E  SPC 1CH 1  NOS  £  SPC  3  TI EN 
ESISPC3ENCSPC  3LACSPC  ]MANO" ¡ T 

62  IFT>3QRTC0THENPRINT"CRVSONJ[SPC3T 
RAMPOSO i  MENTI  ROSILLO! SPC] 1 " ^GOTOSB 

63  I NPUT" CUANTOS ! SPC 3PI DES! SPC JFOR AS 
TERO";P 

70  IFP>60RP<TTHENPRI NT" [RVSON] [SPC3A 
S I  [SPC J NUNCA! SPC 3 ACER TARAS C  SPC  3FORAS 
TERO  r  SPC] 11  'GQTG63 

30  M-INT(RND(1)*4> 

31  X-INTÍRND(1)*4) 

33  S-M+T 

35  L-M+X 

37  IFL-PORLCTTHENS1 

AA  TPt  *>T+ATWPKJA  1 

90  PRINT"PUES£SPCJVO£SPC]PIDO" i L 
100  FORO- 1T01 200 ¡NEXTO 
110  IFP-STHENPR I  NT "B I  EN !  SPC  ÍCOLEGA. T 
UC SPC] GANAS. [SPC3TENGO ' "M"CHINDS I  I  I" 
2*2+ 1 

120  IFL-STHENPRINT"QflNO!SPC]VO!SPC]C 
OLEGA.  PORQUE! SPC] TENGO  ¡  "M "CHINOS  1  I  I " 
¡K-K+l 

130  I FPOSAN  DL  OSTHENPR I  NT  "  N INGUNO  i  SPC  I 
HENOS !SPC] ACERTADO  I " "VO£ SPC] TENGO "MH 
CHINOS" 

140  PR I NT " TOTAL ! SPC ] DE! SPC ]CHI NOS" " ¡ 


¿Que  no  sabes 
cómo  suscribirte 


Commodore 

World? 

¡¡¡Pues  venga, 
llámanos!!! 
(91)  2312388/95 


(93)  2127345 


! SPC ] PULSA ! SPC ] UNA ! SPC ] TECLA " 

370  GETA* 1 IFAÍ-" "THEN370 
390  NEXTJ 

400  I FZ-WTHENPR I NT" [ RVSON ] ! CRSRD ]ENH 
ORABUENA I I I  TU! SPC] GANAS! SPC ]POR";Z-K 
"PARTIDAS' I ! " 

405  IFK-WTHENPR I NT" [RVSON 3 [CRSRD 3 [ SPC ] 
JA . JA . JA ! SPC  3  TE  C  SPC  3  HE  C  SPC  3 GANADO [ SPC  3 
PGR"K-Z"PART I  DAS !  II" 

408  PR I  NT " [ 3CRSRD  3  JUGAMOS  C  SPC  3LA C  SPC ] 
REBANCHA7 [ SPC  3  <  S/N ) " 

410  GETAf: IFfií-"S"THEN10 
420  IFA*O"N"THEN4I0 


145  IFZ-UORK-WTHEN400 

150  PRINT" [2CRSRD3PULSA! SPC 1UNACSPC3 

TECLACSPC3PARA ! SPC  3CONT I NUAR " 

160  CETA*: IFA»-"" THEN 160 

208  PRINT"£CLR3“ t PRINTTABÍ 1S>"CCRSRD3 

[RVSON 3 LOS! SPC] CHINOS" 

210  PRINT" [BLU] " i PRINT" CRVSON]TU 1 "Z" 
PUNTOS "  " !  1 6CRSRR 3 C  RVSON3VO : "K" PUNTOS 


220  M-INTCRNDd  )*4) 

230  X»INTCRND<1>*4> 

250  L-M+X 

260  PR I NT" [ BLK 3 AHORA ! SPC 3 VO! SPC 3 P I LO 


No 

derroche  dinero 
comprando  programas. 
Alquílelos 

y  disfrute  de  ellos  hasta 
que  se  aburra. 


270  FORO- 1T01 200  NEXTG 

280  I NPUT " CUANTOS ! SPC  3  CH 1 NOS  C  SPC  3  T I £ 

NES ! SPC JEN ! SPC ] LAS[ SPC  JMANOS " ; T 

290  I FT>30RT C0THENPR I NT " [RVSON 3 [SPC 3 

TRAMPOSETE . MENTIROS  I LLG [ SPC  3 " ¡ G0T028 


295  S-M+T 

300  INPUT "CUANTOS [ SPC  3  P I DES [ SPC  3  FORA 
ST£RO";P 

310  IFP>6ORP<0THENPRI NT" [RVSON ][ SPC] 

AS  I[ SPC 3NUNCAI SPC 3 ACERTARAS [SPC 3 VILL 
ANO  [SPC] I " ÍGOTO330 

315  IFP-LTHENPRINT" [RVSON] CSPD3YDCSPCJ 
SI  [SPC ]FUERA[SPC]TU[SPC]NO!SPC]DIR! A 
E  SPC] ESE ! SPC ] NUMERO ! SRC ] 0. K7" : OOTO30 


Pídanos  nuestro  extenso  catálogo 
I  Apdo.  n°  12  de  ILLORA  (Granada) 
y  asómbrese  de  las  ventajas. 


320  I FP-STHENPR I NT" B I EN! SPC ] COLEGA . T 
U!  SPC] GANAS. [ SPC] TENGO • "IT’CHINOS ! ! I " 
2=2+ 1 

330  IFL-STHENPRINT "GANO[SPC3VOCSPC3C 
OLEGR, PORQUE! SPC] TENGO  1 "M" CHINOS  I I I " 
;K“K+1 

340  I FPOSANDL  OSTHENPR  I  NT  "NINGUNO!  SPC  3 
HEMOS [SPC] ACERTADO  I " "V0CSPC3 TENGO "M" 
CHINOS" 

350  PRINT" TOTAL C SPC 3 DE ! SPC 3 CH I NOS- " i 


Condiciones  especiales  para  socios 


¡¡¡INFORMESE!!! 


Enviamos  a  toda  España. 


355  IFZ-WORK-WTHEN400 

360  PR I  NT " [ 2CRSRD3PARH! SPC  3C0NT I NUAR 


OSEM II  §©IFTr=$41  Apartado  12.  ILLORA  (Granada) 


Commodore  World  Díciembro  m4/45B 


Utilizar  un  COMMODORE  64  únicamente 
para  jugar,  es  como  pedirle  a  Albert  Einstein  que 
nos  resuelva  la  raíz  cuadrada  de  cuatro. 

El  cerebro  del  ordenador  apenas  funciona. 

Para  aprovecharlo  al  máximo,  lo  que  Vd. 
necesita  son  programas  interesantes  (archivo  de 
documentos,  educación  interactiva,  estimulantes 
juegos  o  proceso  de  textos )  y  lógicamente  los 


periféricos  adecuados: 

—  La  unidad  de  disco  Commodore,  un 
almacenaje  de  datos  muy  rápido,  fiable  y  de 
gran  capacidad. 

—  La  unidad  de  cassette  Commodore,  una 
forma  económica  de  introducir  y  almacenar 
programas. 

—  El  monitor  en  color  Commodore.  para 


MICROELECTRONICA  Y  CONTROL  el  Valencia,  49-53. 08015  Barcelona,  el  Princesa.  47, 3.°  G.  28008  Madrid. 
UNICO  REPRESENTANTE  DE  COMMODORE  EN  ESPAÑA 


COMMODORE  COMPUTER  Advierte  que  al 
comprar  uno  ele  sus  productos  exija  la  garantía  de 
\1  IC  RO  E  L  ECT  RON  I C A  Y  CO NTRO  L .  S.  A, , 
única  válida  para  todo  el  territorio  nacional 


COMMODORE  MP$  801 
Impresora  de  matriz 


COMMODORE  MCS801 
Impresora  cuatro  colores 


COMMODORE  DPS 1101 
Impresora  de  margarita 


COMMODORE  1520 
Printer  plotter  cuatro 
colores 

COMMODORE  1541 
Unidad  de  disco  170  K 


COMMODORE  1530 
Unidad  de  cassette 


COMMODORE  1701 
Monitor  con  color  y  sonido 

JOVSTICKS 

PADDLES 

SOFTWARE  Y  LIBROS 


de  su  cerebro? 


lograr  que  los  textos  y  gráficos  sean  más 
daros  y  vivos  que  en  un  televisor, 

-  3  impresoras  y  un  printer-plotter,  para 
copias  en  papel,  en  blanco  y  negro  o  coior. 

—  Los  joystick  y  paddles,  para  conseguir  que 
los  juegos  sean  más  excitantes. 

Sea  exigente.  Si  su  cerebro,  el  de  su 
COMMODORE  64,  puede  darle  100,  no  se 
conforme  con  10. 


Cl  commodore 

COMPUTER 

la  emoción  del  futuro 


Puzzle 


VIC-20 

SliPKKEM’ANDKÍ 


El  puzzle  consiste 
en  ordenar  según  el 
modelo  de  la  derecha, 
mediante  el  joystick, 
el  dibujo  de  la  iz¬ 
quierda  que  se  de¬ 
sordena  al  azar.  Se  necesita  Su  per  expanden 


Manuel  Lúceos  López 
Cuesta  de  Prieto,  4 
Baeza  (.faén) 


U<  IIH rH61,40,65,  1  13,73,41,87,30,  lüb* 
74,86,75,95,38,94,58,  122 

1 1  £,R  rfi32 , 76 , 59  ■  's  1 ,  t  80,  78 ,  79 88 ,  8í> ,  7 
7,  lúe),  189,32, 7&, 46,  122, 32 

12  I1HTH12  5,  123,27,  H'7,¿4, 1 15,29.  188, 

1 82, i  84 , 92 ,116,117,97,1 6u 

20  EÜR  1  =uTÜ6  FORH-0TÜ6 
30  REhDH\H, I >  NEXT  NEXT 
40  Pü»?841 

42  PRIN r " E6LR3"  FüR  1  =384007038905  P0 
FE I,o  NEXT 

44  p OR I  -7t.au  ( Uí'btsa  P  ul  tl'42  POF  b  I  +  1  tí 
, 42  HE,  I  r  FÜft 1 =7680 1 07836a 1 EP22  PULE  1 
,42  PÚKE 1+10,42 

45  NEXT 

46  FOP 1 -7866T0 7864 :P0KE 1,42  FuKEI+lÚ 
,  42 :  HE! ;  I  FOk  1=7688  rCi7tí¿4STEP22  ■  PÜKE 1 
,42  PÜKE1+ 1U,42 

46  NEXT  FCjRI=0TÜ6  FükH-OÍÜó  •PÜKE77U3 
+H+1  *22, m>  H,  1 '»  •  PÚKE771  3+H+ 14¿2, H'.FI,  1 


>  =  he;-:t  NEXT 

50  FÜRNN= 1 1 Ú4üú 

60  J=IMTsRHLCl  +4 /+1 

70  IFJ=2THENJ=-1 

8Ü  IFJ=3THtNJ=É2 

90  1FJ=4THENJ=~22 

1 úú  1 FPEEKt  PO+J ; =42 1 HÉH&ÜTOS8 

1 1  ü  POKER Ü ,  F'ttF  Pu+J PÜK  EF'Ü+J ,  1 6Ú  P 

Ü=PÜ+J 

120  IFIIN.  4801  HEÑI 48 
13tí  HEXTNN 

148  PRIN1"  C  10CRSRDJC  ijNláPCJ  rULSPCJ  JÓ 
VáTICKCáPC 1HH2" 

1 50  PR í H I " EL  í SPL J  PU22LE " 

160  J-ftJOV v 0a 

170  S=((  (JPIND4)=4>-<é  jHND8j=8zJ  +  eUJ 
HNIll  z=l  ;*22z-x  < t  JhND£>=2  <+«,2> 

175  IFS=23ClRS=210Rá=-23ÚRS=-21  I  HEÑI  a 
8 

180  1FPEEKÍPO+3J-42THEH160 

19Ü  PÜF.EPO,  PEEF  ‘.F'iJ+á )  ■  Pu-PÚ+á  ■  PÜKEPÜ 

,  160 

2tíU  PORI=0ÍOto  FÜRH=0Tü6 

210  IFPEEK<7703+H+I*22¿OFKH,  1 JTHEN2 

40 

220  NEXT -NEXT 

238  PRlNr'PELIC  IIihLES"  EHIi 
240  FÜRI=1TO100  NEXT ;CUTO160 


El  laberinto 


Hafaeí  Alberto  Garda  Medina 
Carretera  de  G  ranada,  n&  4,  3C 
Giiadi*  (Granada) 


Es  un  juego  de 
habilidad,  rapidez  y 
de  mucha  vista. 

Se  juega  desde  el 
teclado(mirar  presen¬ 
tación  del  juego). 

Te  encuentras  perdido  en  un  laberinto  en  el  que  sólo  sobrevi¬ 
ven  los  más  astutos.  Tu  misión  es  la  de  salir  por  las  salidas  que 
hay  en  la  parte  inferior  de  la  pantalla  cosa  que  no  es  nada  fácil. 

Además  tienes  que  luchar  con  el  tiempo  que  se  visualiza  en  la 
pantalla  ya  que  si  sobrepasa  ios  200  segundos  y  aún  no  has 


encontrado  la  salida  serás  hombre  muerto, 

¡Ojo!  MUCHO  CUIDADO  DE  NO  CHOCAR  CONTRA 
LOS  MUROS  ya  que  se  encuentran  electrizados  y  sí  topas  con 


ellos  morirás  electrocutado. 

También  tiene  otra  dificultad  o  ventaja  según  se  mire;  al 
llegar  a  la  mitad  del  juego  una  bola  mágica  te  abrirá  un  pasa¬ 
dizo  y  te  hará  más  fácil  La  salida  pero  si  choca  contigo  habrás 
perdido. 

El  laberinto  no  resulta  monótono  ya  que  en  cada  partida  es 
totalmente  distinto  y  es  muy  difícil  que  se  dé  el  caso  de  salir  dos 
laberintos  iguales. 

¡¡¡Suerte  y  no  os  perdáis!! 


1  F0RL-54272TD54295  :  PGfcEL  *  0 :  NEXT 

2  OOTQ3000 

3  PÜKE54236*13  PGKE54277, 255 

4  PÜKE34273*  3 : PQKE34272j  253 
3  P0KE5427€j 129 

6  PR I NT ^  C  BLK 3  [ CLR ]  *'  : PÜKE532B0. 0  POKE 
5328 1 4 1 

10  FÜRT-1T0999 
20  POKE1024+T  j 1 1 1 
30  NEXT 

40  FORT- 1TD 100 
45  R*INUftNDCl)#993) 

50  POKE 1024+8,32 
60  NEXT 
70  FORT-1TO130 
75  B-INTíRNDC0)#996)43 
80  POKE 1024+Bí  76 
90  NEXT 

95  TI$-M 000000° 

100  POKE650.150 

1 20  V*S3248 : POKE V+34 , 3 : PQKE V+4 1 , 2 
130  P0XE53269/ 4 : POKE2042^ 13 
1 40  FOftN-0TO62 i RERDQ ■ PÜKEB32+N, 0  NEX 
T 
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130  DfiTflB, 0,0,0, 0,0, 0,0, 0,  0, 0,  0,0,0 
0«0« 0-0/ 0,0,0, 0, 0,0, 0,0,0, 0,0, 0,  0,0 


Todos  los  meses 
publicaremos 
programas  para  los 
Commodore. 
¡¡Suscríbete!! 

Te!.  (91)  231  23  88/95 


160  DflTFl0, 255,0,0, 253,0, 0, 255,0,0, 25 
5-0-0,235,0,0,253-6,0,0,0,0,0,0,0,0, 
0,0, 0,0 

1 63  X-22 ; V"39 : P0KE53252, X ' P0KE53253 , 

V 

170  GETHÍ : IFH*B"fl"THENX»X-l 
160  IFfi*»',S"THENX"X+l 
1&0  IFR*-"[F13"THENV«V-1 
200  IFFI#-"CF3]"THENV=V+1 
205  IFflí»"CF5]" TH£NX«X+ l 0 
210  I  Fflí* “ I F7 ] " THENX*X-I 0 
263  IFX>255THENX«255 

266  I FV>23bTHEN800 

267  IFX<16THEHX" 16 

270  X»X ; V-V : P0KE53252 , X : P0KE53253 , V 

275  IFPEEKCV+31 >RNDX*XTHEN400 

276  PR I NTTflB  <  29 ) " C BL1Í 3  C R  VSQN 3 [ CRSRU 3 
TIEMPO"; 

277  PRINTTPBO0) "[CRSRUKRVSON] 11  INTí 
TI760) 

278  IF INTÍ T 1/60 )«100THEN2000 

279  IFINT <TI/60)*200THEN300 
260  ODTO170 

300  PR I NTTPB  <  7 ) " C BLK ] C5CRSRD ] CRVSCiN ] 

C  SPC  3  T I EMPO  C  SPC  J  CUMPL I DO  CSPC  3 " 

315  GOTO1046 

460  FORO» 1 T016 : POXE53290 , G ■ P0KE5328 1 
, G+l ■ NEXT 

403  FORL-54272T034293 :  POKEL ,  0  '■  NEXT 

410  P0KE54296, 15 

420  P0KE542 77,27 

440  PQKE34273, 11 1 POKE54272, 253 

450  P0KE54276- 129 

460  FORT ■ 1 TO 1 000 ■ NEXT 

300  FQRG-1T016 ¡ POKE53260, G ; P0KE532S1 

, G+l ¡NEXT 

505  PRINT" CCLR3 11 

510  POXE532B0, 0 ¡ POKE33201 , 0 ¡ PRINT" CCVN3 

520  PRINT" C4CRSRDJ  C5SPC JHPSCSPC3CH0C 
RDO  C  SPC  3  CONTRRC  SPC  3  EL  CSPC  3  MURO  I I I " 

530  GOTO1040 

800  FORO- 1 TOl 6 ¡ POKE53280 , G ¡ P0XE3328 I 

«0+1 ¡NEXT 

1000  PRINT"[CLR]" ¡ POKE53260, 0: P0KE53 
261 , 0 ¡ PR I NTTRB  <1 3 1 " C 6CRSRD3  CRVSON  3 [ RED  3 
[7SPC3 " 

1010  PRINTTFtBC 1 5) " CRVSON) C2SPC30. KC2SPC3 

m 

1 020  PRINTTFiB (15)" CRVSON ] C 7 SPC 3 " 

1 030  PR I NT " C  CVN  3  C2CRSRD  3  C56PC  3MUV  C SPC  3 
B I  EN. LO C SPC 3 HRS CSPC 3 CONSE GUI DO! f ! " 

1040  PRINT" CCRSRD3 C5SPC3TIEMPO : "i  INI 
(TI/60) "SEGUNDOS" 

1050  PRINT 

1060  PRINT" C5CRSRDJ CRVSON 3 C3CRSRRJQU 
I ERESC  SPC  3  JUGAR CSPC  JOTRA [ SPC  3PRRT I LR 
<S/N)?" 

1070  OETBf ¡IFB*-"S"TNENRUN 
1060  IFBSO"N" THEN1070 
1030  END 

2000  PXM'fiV-1 ¡DX«1 ¡DV-l 

2005  FORG*0TQ313 

2010  POKE 1 024+RX+404HV , 8 1 

2020  POKE 1 024+HX+4046V , 32 

2025  PX«flX+DX¡ I FflX*0ORHX»39THENDX"-D 

X 

2030  flV»PV+DV:  IFRV-0ORflV-24THENDV—D 
V 

2040  NEXT 
2050  G0T0275 

3600  PRINT" CCLR3CCVN3"; PGKE53280 , 0 ■ P 
GKE5328 1 j 0 

3010  PRINTTABCS) " C5CRSRD] CRVSON] fSPCJ 
EíSPC ] L [ 3SPC ]L  í  SPC  J  RC  SPC ] B  C  SPC ] E  C SPC I 


RCSPC] I [SPC3N[SPC3T[SPC3ÜtSPC3 " 

30 1 S  PRINT 11  í 2CRSRD 3 C 2 SPC 3 I NS  TRUCC I ÜN 
ES  :  " 

3020  PRINT" CCRSRD3  f 2SPC3R*  * . . HACIA CSPC3 
LRC SPC] DERECHA" 

3040  PRINT"C2SPC3S. . ■ * HACIAC8PC3LACSPC] 
IZQUIERDA" 

3850  PRINT’Tl /* . . . HACIACSPC1ARR IBA" 

3060  PR1NT"F3' _ HACIACSPCIABAJO" 

3070  PRINT" F3' . . . . SfiLTAESPCIHACIACSPC] 
LR  C  SPC  3DERECHA 11 

3880  PRINT4,F7'  •  * , .SALTACSPCIHACIACSPC] 
LA ISPC? IZQUIERDA" 

3090  PR I NTTRB C 4 ) " C3CRSRD ] C RVSON 3  í SPC 3 
PUL SA r SPC 3 UNA í SPC 3 TECLA C SPC 3PRRR CSPC 3 
COMENZAR" 

3100  ÜETWÉ^  IFLÍt*"  "THEN3100 
3200  Q0T03 


Tele  Sant  Just 

Mayor,  2.  Tel.  (93)  371  70  43 
SAN  JUST  DESVERN  (Barcelona) 


INTERFACE  para  recibir  y  transmitir 
CW  y  RTTY  en  el  VIC-20  y 
COMMODORE  64 


INTERFACE  para  poder  conectar  cualquier 
cassete  a  los  ordenadores 
COMMODORE  64. 


BASE  DE  DATOS  en  cassette 
ARCHIVO  DE  OSL 


NECESITAMOS  DISTRIBUIDORES 


ICommodore  World  Diciembre  14X4/491 


% 


t%y 


MICROELECTRONICA 
Y CONTROL 

Valencia,  49-51.  bajos. 

08015  Barcelona 

COMMODORE  WORLD 

Barquillo,  21,  3.“  I.d*  28004  Madrid 
Teléf.:  (91)  231  23  85/86/88/95 


.J*%**\  i 


Un  pintor,  repre¬ 
sentado  por  un  rodi¬ 
llo,  debe  pintar  la 
fachada  de  una  casa 
en  un  plazo  determi¬ 
nado.  Sin  embargo, 
por  la  casa  corre  una  araña  muy  peligrosa,  que  si  pica  al  pintor 
lo  hace  polvo  y  tiene  que  volver  a  empezar  los  trabajos.  Igual¬ 
mente  ocurre  si  no  termina  de  pintar  dentro  del  plazo. 

Hl  rodillo  pinta  con  A,  D.  FI  y  F7.  La  araña  se  mueve  ella 
sólita. 

Si  se  quiere  hacer  el  juego  más  dificil,  se  puede  quitar  la 
última  linea  de  DATA,  con  lo  que  se  reduce  el  tiempo.  El 
recorrido  de  la  araña  se  puede  variar  cambiando  los  DATA, 

El  programa  ocupa  toda  la  memoria  del  VIC,  pero  si  se 
dispone  de  ampliación  se  pueden  añadir  sonidos  y  dejar  el  juego 
más  atractivo. 

Variables:  R  y  R1  ;  Rodillo 
Ai  y  A2:  Araña 


ti  abrí  el  Torres  Rosselló  (15  años) 
Aída.  Principes  de  España,  27-10 
(971)  54  63  95 
ALCUDIA  (Mallorca) 


0  REM  PINTOR  LOCO 

1  PRIHT"[CLR]":PRIHT"tRVS0H3lKUi*illCSPC] 
PINTOR£2SPCaLOCO[SPC]é**éCRVSOFF31’ 

2  PRINT"CBLK3 [2CRSRD31 . £SPC3SE£SPC3T 
RflTfl[£FC3DEC$PCJPINTfiR[4SPC3LfiESFC3F 
RCHflDÑ  £  SPC  3  DE [ 2SPC  3  UNA  £  4SPC 3  CñSft .  " 

3  PRINT" [CRSRD 32,  [SPC3PL  D, FHSPC3VTSFC3 
F7[  SPC ] MUE VEN [43PC3ELC SPC  3RQDILLOC3FCJ 
DEL [ SPC  3  P I N [ 4SPC  3  TÜR . £  1 3SPC  3 [  C0MMT3 " 


CVEL ] [COMMG 3 EC0MMM3 CREDO [COMM+ 3 [VEL  3 
£  COMMG  3  C  COMMM 3 [RED  3  CSCONM+  3  [  VEL  ]  [COMMG  ] 

£ COMMM 3 [RED] [COMM+3  [ VEL ] [ COMMG  3 [ COMMM 3 
CREDK2C0MM+3" 

2 1 7  PRINT" [ RVSON 3  CELIO  [ COMM+ 3 C VEL 3  C COMMM 3 
CSPC3  CSHIFTL3  CSHIFT83ISPC3  CSHIFTL3  CSHIFTS3 
C5SFC3ISHIFTL3  CSHIFTQ3CSPC3  CSHIFTL3 [SHIFTÜ3 
C SPC 3 C  COMMG  3  CBLK3E 2C0NM+ 3 " i 
21 S  FR  rHT " [ RVSON  3 1 COMM+ 3  C  VEL  3  C  COMMM  3 
C7SPC3  CCHIFT03  CC0MMT3  C3HIFTF3  CTSPC  3 [COMMG 3 
CBLK3  C2COMM+3 " i 

215  PRINT" [RVSON 3 [ COMM+ 3 [ VEL 3 [ COMMM 3 
[ 73FC  3 [COMMG  3 [ SPC  3  C  COMMM  3  C7SPC3 [ COMMG  3 
CBUÍ3Í2C0I1M+3" i 

223  PRINT" [RVS0N3C CÜMM+ 3 [ VEL 3 [COMMM 3 
C3PC3  C3HIFT03 [SHIETP3  CSFC3 [3HIFTÜ3  CSHIFTP3 
C  SPC  3 [ COMMG  3 [ SPC  3 [COMMM  3 [ SPC  3  CSHI FTO  3 
C3HIFTP3  CSPC3  CSHIFT03  CSHIFTP3CSPC3 [C0MMG3 
CELK3  C2C0MM+3 " ; 

221  PRINT" [RVSON 3 [CGMM*  3 [VEL 3 [COMMM 3 

£ SPC 3 [COMMG 3  £ COMMM 3 CSPC3 [COMMG 3 [COMMM 3 
[£FC3  C3HIFT03 [COMMT3CSHIFTP3 [SPC3  CC0HMG3 
[COMMM  3 [ SPC 3 [COMMG  3 [COMMM  3 [SPC  3  C  COMMG  3 
£ELK3  E2C0MM+3 " , 

222  PR 1  NT" [ RVSON 3 [ COMN+  3 CVEL 3 [COMMM 3 

[ SPC  3 [ 3H IFTL3  £  SH I FTS3  CSPC  3  £  3H I FTL  3  £  3H IFTfil  3 
[ GPC  3 [ 3HI FTL  3 CC0MMS3 £ SH I FTá  3  £ SFC  3 [ SHI FTL  3 
ESHIFTS3  CSFC3  C3HIFTL3C3HIFTS3  CSFC3CCOMMG3 
[ELL3  C200MM-*  3 " , 

223  PRINT" [RVSON 3 [ COMM+ 3 [ VEL 3 [ COMMM 3 
[ I 7SPC 3 [COMMG 3 [£LK 3 E2C0MM+ 3 " i 

224  PR I  NT " [ RVSON 3  £  COMM+ 3 [ VEL  3 [ COMMM  3 

[SPC 3  CSHIFT03 [3HIFTF] [3PC3 [SHIFT03 [3HIFTF3 
£  SFC  3  CSH I FTO  3  CCOMMT  3 [ SH IFTF  3  £  SPC  3 [ SHI FTO  3 
[ SH I F  TP  3 [ SFC  3 [ SH IF  TO  3  £  SH I FTP  3  £  SPC  3  C  COMMG  3 
[BLK3Í2COÍ1M+  3 "  i 

225  PRINT" [ RVSOII 3 [ COMM+  3 [ VEL 3 [ COMMM 3 

[ SPC  3 [COMMG  3 [ COMMM 3  £SFC 3 [ COMMG  3 [COMMM  3 
[SFC  3  [  C0HI1G3  £  SFC  3  [  COMMM  3  [  SPC  3  [  COMMG  3 
£  COMMM  3 [ SFC  3  £  COMMG  3 [COMMM  3  C  SPC  3 [COMMG  3 
[BLK3  C2C0MM+3 " ; 

220  PR I NT " £  RVSON  3 1 CÜNH+  J  C  VEL  3  C COMMM  3 
C3PC3  £SHIFTL3[SHIFTi3 [3PC3ESHIFTL3ISHIFT83 
[ SPC  3 [ COMMG 3 [ SPC  3  £  COMMM  3 [ SPC3 [ SH I FTL  3 


4  PRINT" ECRSRD33. [3PC3CUIDñDO£SFC3CO 
N[ SPC 3  EL £  SPC  3  E I - [ 4SPC  3  CHOC  SPC  3  QUE! SPC 3 
CORRE £2SPC3PORC4SPC3Lñ£ SPC ICfiSfl. " 

6  PRINT" [3CRSRD3ERED3C 15SPC3G. T. R.  " 

5  FORI-1 TOS600 • NEHT 

10  P0KE52*  2S : P0KE56  * 28 

20  FQRT*71óST07S79  '•  POKET * PEEK<T+2360 

3):nd;t 

SO  P0KE36S63* 255 

40  REflDfl  :  IFñ—  1THEM2G0 

50  FORT-0TO7 ¡ REfiDB : P0KE?16á+ñ+3+T*  E ; 

NEaT 

£0  GOTO40 

él  DflTflO, 255, 253*  255*  255*255*  255*  255 
1 2ZZ 

62  DRTR23, 255,255,3,3*  255*  255 , 24 *  24 

63  BñTrioO ,  36*  24 , 255  *  60  *  255  *  60  *  255*  24 


£4  DflTfl- 1 

200  PRINT" CCLR3 "  F0L'E36S73,  o 

203  PRINT " EHOM 3 [ CRSRD 3 [ÉCRSRR 3  E WHT 3  £ RVSON 3 

IC0MMD3  EC0MMF3 E5CRSRR3 [C0MMD3 CCQMMF3 


211  PRINT " [ 6CRSRR  3  [  RV 'SOFF  3  ECVN  3  G0  £  5CRSRR  3 

8fi" 

212  PRINT" [6CRSRR 388 [SCRSRRISta" 

213  PR I NT" [ RVSON 3 [RED 3 [ 4CRSRR3 £  1 3COMM+3 


14  PR II JT " [ RVSON  3 [ RED  3  C3CRSRR3  £  1 5C0MN+ 3 


215  PR INT " £  RVSON 3  £  REB  3  £  2CRSRR3 [ COMM+3 
[SHIFTE3  [COMM+3 [COMM+3  £SHIFT£3 [CüNM* 3 
[  5C0MM + 3  £  SHIFT£  3  £ COMM*  3  £ COMM+ 3 [ SH I FT  £  3 
[COMM+3 [COMM+3" 

21¿  PRINT" [RV30N3 [RED3 [CRSRR3C2C0MM+  3 


Commodore  World  Diciembre  I9S4/51* 


club 

commodore 


Rutina»  Basic  (2) 

Cursor 

Jordi  SASTRE 


Bajo  el  nombre  de  CURSOR  se 
esconde  una  potente  rutina  para  las 
entradas  de  datos. 

La  instrucción  INPUT  dd  Basic  tiene 
ciertos  inconvenientes  para  cuando  se 
desean  programar  entradas  de  datos  muy 
controladas.  Estos  inconvenientes  son 
principalmente  dos:  si  se  pulsa  RETURN 
sin  introducir  ningún  dato  el  programa 
queda  cortado,  y  las  tedas  de  control  de 
cursor  permanecen  activas  (cursor  arriba, 
cursor  abajo,  borrado  de  pantalla, ,,,)  con 
sus  consiguientes  peligros. 

En  una  programación  completa,  tal 
como  Contabilidad,  Facturación  o  Con¬ 
trol  de  Stocks,  donde  el  ordenador  es 
manejado  generalmente  por  personas  sin 
suficiente  conocimiento  informático,  es 
necesario  tomar  precauciones  para  evitar 
que  el  operador  no  cometa  fallos  acciden¬ 
tales.  Debe  impedirse  que  pueda  borrar  la 
pantalla  cuando  el  programa  hace  una 
pregunta,  que  el  programa  pueda  inte¬ 
rrumpirse  accidentalmente,  que  escríba 
letras  cuando  lo  que  se  pide  son  números, 
etc.  Por  otra  parte  debe  dársele  el  mayor 
número  de  facilidades  en  las  entradas  de 
datos,  como  permitir  el  movimiento  del 
cursor  dentro  de  una  zona  destinada  a 
respuesta,  o  efectuar  el  borrado  e  inser¬ 
ción  de  caracteres. 

Una  rutina  que  haga  todo  esto  no  es 
sencilla.  Debe  incorporar  diversas  fun¬ 
ciones  de  edición,  como  el  borrado  de 
caracteres,  el  desplazamiento  del  cursor  a 
derecha  o  izquierda  sin  alterar  el  texto,  o 
Ja  apertura  del  texto  para  la  inserción  de 
caracteres.  Además  es  conveniente  incluir 
un  filtrado  de  teclas  para  que,  por  ejem¬ 
plo,  no  se  admitan  caracteres  alfabéticos 
cuando  lo  que  se  pide  son  números. 

La  rutina  de  cursor  puede  hacerse  de 
muchas  maneras,  siendo  todas  ellas 
correctas.  Aquí  voy  a  describir  una  de 
ellas  que  cumple  un  mínimo  de  requisitos, 
y  que  posiblemente  no  es  la  mejor,  pero  al 
menos  funciona.  Toda  entrada  de  datos 
en  un  ordenador  debe  tener  un  texto 
como  pregunta  a  cada  dato.  Asi  pues  esta 
rutina  debe  tener  como  variable  de 
entrada  una  cadena  con  el  texto  de  La  pre¬ 
gunta  (supongamos  T$).  La  respuesta 
puede  venir  devuelta  en  otra  variable  de 
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cadena,  por  ejemplo,  B$,  y  en  una  numé¬ 
rica  (B)  para  cuando  el  resultado  sea 
numérico  (basta  con  efectuar  B=VAL(B$) 
antes  de  finalizar  la  rutina). 

Utilizamos  una  variable  de  control, 
MX,  en  la  cual  se  especifica  la  longitud 
máxima  deseada  en  la  respuesta  y  el  tipo 
de  filtrado.  Ambas  cosas  se  indican  con  La 
misma  variable  utilizando  el  punto  deci¬ 
mal  como  separación.  Por  ejemplo  MX= 
15.2  indica  que  la  entrada  debe  ser  de  un 
máximo  de  15  caracteres  con  el  filtro  de 
tipo  2. 

Los  filtros  que  pueden  efectuarse  en 
una  entrada  de  datos  son  muchos,  pero 
quizá  los  más  representativos  o  necesarios 
pueden  definirse  de  la  siguiente  manera; 
un  dato  puede  ser  alfa  numérico  o  numé¬ 
rico;  el  primero  debe  aceptar  todo  tipo  de 
caracteres,  mientras  que  el  segundo  úni¬ 
camente  dígitos.  Ampliando  Las  posibili¬ 
dades  pueden  haber  dos  tipos  de  filtro 
alfanumérico;  uno  que  acepte  La  coma  y 
los  dos  puntos  y  otro  que  no  (las  graba¬ 
ciones  en  disco  con  PRINTÍJ  no  permiten 
que  las  cadenas  contengan  comas  o  dos 
puntos).  En  ningún  caso  se  aceptan  las 
comillas,  pues  son  conflictivas  en  el  tra¬ 
tamiento  de  cadenas.  Por  su  parte  pueden 
facilitarse  tres  tipos  de  filtro  numérico: 
uno  que  acepte,  además  de  los  dígitos,  el 
punto  decimal  y  signo  menos,  un  segundo 
que  únicamente  acepte  el  signo  (para  can¬ 
tidades  sin  decimales)  y  un  tercero  que 
sólo  acepte  dígitos  (para  códigos,  por 
ejemplo).  Con  estos  filtros  cumplimos 
con  La  regla  de  oro  enésima  que  dice: 
cuantas  menos  teclas  pueda  pulsar  un 
operador,  menos  probabilidades  hay  de 
que  se  equivoque. 

Por  último  puede  indicarse  también  en 
la  misma  variable  del  filtro  si  se  desea  que 
La  cadena  de  retorno  venga  complemen¬ 
tada  con  espacios  en  blanco  por  La  dere¬ 
cha  hasta  su  longitud  máxima  (indicada 
en  MX),  o  por  el  contrario  que  elimine  los 
espacios  de  la  derecha  entregando  la 
cadena  a  la  longitud  solo  usada.  Los 
espacios  en  blanco  de  la  izquierda  se  eli¬ 
minan  siempre  (son  conflictivos  en  las 
operaciones  de  disco). 

Resumiendo,  los  tipos  de  filtro  utiliza¬ 
dos  por  la  rutina  son  los  siguientes: 


0.— Alfanumérico  con  coma  y  dos  puntos 

(no  comillas  ni  gráficos). 

1. ™ Alfanumérico  sin  coma,  dos  puntos, 

comillas  ni  gráficos. 

2.  — Numérico.  Sólo  acepta:  0  12  3  4  5  6  7 

8  9, 

3. — Numérico,  Sólo  acepta:  0  12  3  4  5  6  7 

8  9  -  (cantidades  enteras). 

4. — Numérico.  Sólo  acepta;  0  12  3  4  5  6  7 

8  9  -  (para  códigos). 

En  estos  cinco  tipos  la  cadena  de 
retorno,  B$,  tiene  la  longitud  ajustada  al 
dato  introducido.  Los  tipos  del  5  al  9  son 
iguales  a  estos  con  la  salvedad  de  que 
entregan  B$  rellenado  con  espacios  en 
blanco  hasta  su  longitud  máxima  indi¬ 
cada  en  MX .  El  tipo  5  corresponde  al  0,  el 
6  al  1,  etc. 

Explicación  de  la  rutina 

A  primera  vista  la  rutina  parece  larga  y 
compleja.  Realmente  no  es  corta  ni  senci¬ 
lla,  pero  merece  un  poco  de  explicación: 

30002:  La  variable  MX  se  desglosa  en 
tres:  X5  es  el  tipo  de  filtro  (del  0  al  9).  XO 
también  es  el  tipo  de  filtro,  pero  igno¬ 
rando  la  longitud  de  salida  (de  0  a  4).  MY 
es  la  longitud  máxima  de  la  respuesta 
(parte  entera  de  MX). 

30009:  Imprime  la  pregunta,  un  inte¬ 
rrogante  y  una  flecha  marcando  el  final 
de  la  zona  permitida  para  respuesta.  Cal¬ 
cula  en  XI  la  posición  (byte  de  pantalla) 
actual  del  cursor, 

30012:  Dos  variables  de  trabajo:  X3 
apunta  al  inicio  de  La  zona  de  respuesta  y 
X4  al  final. 

300 1 5  y  300 1 8:  Bucle  de  espera  de  pul¬ 
sación  de  teda.  Provoca  el  parpadeo  del 
cursor  hasta  que  se  pulsa  una  tecla. 

30021:  Recoge  el  valor  ASCII  de  la 
tecla  pulsada,  apaga  el  cursor  y  bifurca  a 
30063  si  se  ha  pulsado  RETURN  (tecla  de 
validación), 

30024:  Ejecuta  el  CURSOR-DERECHA. 

30027:  Ejecuta  el  CURSOR-IZQUIERDA, 

30030  a  30036:  Ejecuta  el  BORRADO- 
CARACTER  (tecla  INST/DEL). 

30039  y  30042:  Ejecuta  la  INSECCION- 
CARACTER  (tecla  INST/DEL  con 
SHIFT), 

30045;  Ejecuta  HOME  (posicionarse  al 
inicio  de  la  zona). 


30048;  Ejecuta  tecla  CLR/HOME  con 
SHIFT  para  posicionarse  al  final  de  la 
zona. 

30051:  Filtro  principal:  Comprueba 
que  no  se  sobrepase  el  tamaño  de  la  zona 
de  respuesta  y  que  el  carácter  pulsado  este 
comprendido  entre  los  valores  ASCII  32  y 
96,  No  acepta  las  comillas  (valor  ASCII 
34)  ni  los  gráficos  (valores  mayores  que 
96). 

30052:  La  coma  y  los  dos  pumos  sólo  se 
aceptan  en  tipo  0, 

30054:  El  tipo  4  no  acepta  el  signo 
menos, 

30057:  Los  tipos  3  y  4  no  aceptan  punto 
decimal.  Filtro  numérico. 

30060:  Una  vez  aceptado  el  carácter  se 
imprime  y  se  incrementa  el  contador  para 
después  volver  al  bucle  principal. 

30063  a  30065:  Aquí  viene  cuando  se  ha 
pulsado  RETURN.  Comprueba  que  como 
mínimo  se  haya  escrito  un  carácter. 

30066  y  30069:  Recoge  el  contenido  de 
la  pantalla  y  lo  asigna  a  B$. 

30072:  Convierte  el  interrogante  en  dos 
pumos  y  borra  la  Hecha  del  final. 


30075:  Elimina  los  espacios  en  blanco 
iniciales. 

30077:  Si  la  longitud  es  menor  que  10 
obtiene  el  valor  de  la  cadena  en  B. 

30078:  Si  el  tipo  de  filtro  es  de  5  a  9 
complementa  con  espacios  en  blanco  por 
la  derecha. 

3008 1:  Retorno  de  la  rutina. 

Observaciones! 

Esta  rutina  está  escrita  para  una  CPU 
de  la  serie  4000  o  8000.  En  la  línea  30009 
pueden  apreciarse  dos  funciones  PEEK. 
Lógicamente  los  valores  indicados  no  sir¬ 
ven  para  otras  CPUs,  como  el  700,  el  C-64 
o  el  VIC-20.  Para  adaptar  la  rutina  a  estos 
ordenadores  deben  cambiarse  los  valores 
de  los  PEEKs:  en  lugar  de  197  y  196 
debe  ponerse  201  y  200  en  la  serie  700,  ó 
210  y  209  en  el  C-64  y  VIC-20, 

Esta  rutina  utiliza  algunas  variables  de 
trabajo,  que  deben  conocerse  para  entrar 
en  conflicto  con  ellas  por  ser  utilizadas  en 
el  resto  del  programa.  Al  llamar  a  la 
rutina  debe  estar  ya  asignada  la  variable 
Z2$  con  espacios  en  blanco;  por  ejemplo 


al  principio  dei  programa  puede  hacerse: 

Z2S-"":  FOR  X=1  TO  80  :  Z2$=Z2$+“ 
"  :  NEXT 

Además  de  las  variables  de  emrada/sa- 
lida  T$,  MX,  BS  y  B,  la  rutina  de  cursor 
utiliza  las  siguientes: 

X5  —  Tipo  de  filtro  (de  0  a  9). 

X0  —  Tipo  de  filtro  (de  0  a  4). 

MV  —  Longitud  máxima  para  la  respuesta. 

X  —  Contador  general,  utilizado  en 
varios  puntos. 

XI  —  Puntero  al  byte  de  pantalla  en 
curso. 

X2  —  Variable  temporal  que  guarda  el 
carácter  durante  el  parpadeo  del 
cursor. 

X3  —  Puntero  al  inicio  de  la  zona  de 
respuesta  (límite  izquierdo  de 
XI). 

X4  —  Puntero  al  final  de  la  zona  de  res¬ 
puesta  (limite  derecho  de  XI). 

X9  —  Variable  auxiliar  utilizada  en 
30066  y  30069. 

R$  < —  Carácter  correspondiente  a  la 
tecla  pulsada. 

XR  —  Valor  ASCII  de  R$. 


lii  RhM  ************ 

20  KEF1  *  * 

30  REM  *  CURSOR  * 

40  REM  *  * 

50  REM  ************ 

60 

109  R EF1  DATOS  DE  ENTRADA 

110  REM  - - 

m  REM  T$= MENSAJE  pregunta 

130  REM  MX-LONGITUD  MAXIMA  BF  LA  RE 

SPUESTA  (PARTE  ENTERA) 

140  REM  TIRO  DE  ENTRADA  (RAPTE  D 
ECiriHl  > 

156  REM 

£60  REM  BhTÜS  DE  SALIDA 

170  REM - - - 

IRO  REM  Bf «RESPUESTA  INTRODUCIDA  AN 
TES  DE  PULSAR  RETURN 
190  REM  B "RESPUESTA  (VALOR  NUMERICO 
DE  > 

2 m  REM 

210  REM  OBSERVACIONES 

220  REM - - 

230  REM  Z2S  DEBE  CONTENER  ESPACIOS 
EN  BLANCO. POR  EJEMPLO,  POPEMOS  EJECU 
TAR 

2411  PEM  HL  PRINCIPIO 

250  REM  10  Z2$=" 11  '■  FORI"1TO80  22 

4*Z2Í+"  CSPCJ"  NEXT 

260  REM 

270  REM 

999  : 

30000  REM***  CURSOR  4.1  ************ 
*** 

30001  REM***  1 :  Tí  MX  IMT<MX>=LEN  DE 
CfMX>=TIP0 

30002  X5= INT <  < MX- 1 NT < MX > )* 1 0+ . 5 > : X0= 

( X5+5*  (  X5>4  > ')  MV=  I  NT(  MX  > 

30009  PR I  NT  Tí ,l?  I SPC  J  “  SPOT  MV  "  H  CRSRU  3 

"  PR I MTT  $  *'  ?  I SPC  ]  *'  ¡  : X1=256*PEEK  ( 1971  + 

PEEK  <  19fc"  > +LEN  <  Tí !'  +2 

30012  X3=X1  X4=X1+MV-1 

30015  X 2= PEEK <X1>: POKEX 1 , X2+12S : FORX 


=1TO50:  GE  TRí  IFRíO"  "THFN30021 

300 1 8  NEXT  POKEX  t,X2:  F0RX*=  1  TOSO  GETR 

i  I  FRÍ=  “  “ THENNEXT :  GOTO30015 

30021  XR=NSCÍRÍ> : POKEX 1 ,X2: IFXR=13TH 

EN30063 

30024  I FXR=29RNDX 1 <X4THEM 30060 
30027  I FXR= 1 57RHDX 1 >X3T HEMX 1 =X 1 -2  GO 
TA30068 

30030  I FXRO20ORX 1  =X3THEN30039 
30833  F0RX=X 1 - 1 TÜX4- 1 ' POKEX ■ PEEK i X+ 1 
1 : NEXT  POKEX4 , 32 : X 1 =X 1 - 1 ‘ PR I  NT " [ CRSRL ] 

II  ■ 

30036  GOTO30015 

30039  I FXRO 1 480RPEEK  <  X4  >  O320RX 1  >X4 
THEN30045 

30042  FORX=X4TOX1  +  1S-TEP-1  POKEX, PEEK 

CX-l)  NEXT  POKEX 1 ,32 : OOTO30015 

3Ü045  I FXR= 1 9THENX1 =X3 : PR I NT ■ PR I NT" [ CRSRU ] 

" Tí " C  2CRSRRÍ " , : GOTO 300 15 

30048  I FXR= 1 47THENX 1 =X4 : PR I NT : PRI NT " 

[CRSRU] "TíSPC<MV+l> ,  OOTO30015 

3805 1  I F- X 1 >X4 )OR<XR>960RXR<320PXR*3 
4  > THEN30015 

38052  I FX0>00ND(XR=58ORXR=44; THEN308 
15 

30854  I FX0=4HNDXR=45THE  N300 1 5 

30057  I F( X0>2ñNDXR=46 >0R  < X0> 1 NND C XR< 

430RXR>570RXR=47 1RNDXR032  >  THEN380 1 5  • 

30060  PRINTRí.  X1=X1+1  GOTO30015 

30063  Eí="" :X=X4+1 

38064  X=X-1 : I FXÍ X3THEN3801 5 

30065  IE’PEEKÍX)  =32THEN30064 

30066  F0RX=XT GX3STEP- 1  X9=PEEKTX>  IF 
X9<32THENEí=CHRf <X9+64)+E#  NEXT  GOTO 
30072 

38069  Bí=CHRÍ<X9  > +Éf  NEXT 

30072  PR  I  NT  PRI  NT "  C  CRSRL'  1 "  1  í  "C  SPC  ] " 

SPCCMV? " CSPC3 " 

30075  IFLEFTíLBí- 1 )=“ESPCJ "THENBf=RI 
GHT í ( bt , LENf Éí ) - 1 )  00 TOS 0075 
38077  B=0 1 IF  MV<1@THENB= VALLES 1 
30078  IFX5>4THENE*«LEFTí í BS+Z2* , MV) 

30681  RETURN 
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.-COMPARTIENDO  EXPERIENCIA  ENTRE  AMIGOS 


Magia 


La  MAGIA  son  trucos ,  la  MAGIA  es 
divertida. 

La  MA  GIA  es  hacer  lo  que  nadie  se  ha 
atrevido  y  resulta  ser  la  fuente  más  com¬ 
pleta  de  información  para  la  informática 
práctica , 

La  MA  GIA  es  una  sección  mensual  llena 
de  consejos,  trucos ,  de  esto  y  aquello  del 
mundo  del  software ,  hardware  y  aplicacio¬ 
nes,  trucos  descubiertos  por  los  demás  que 
hacen  que  la  informática  sea  más  fácil,  más 
divertida  o  más  animada . 

MAGIA  habla  de  ideas  sencillas,  pro¬ 
gramas  de  una  sola  linea t  subrutinas  útiles , 
hechos  de  informática  poco  conocidos  y 
otras  cosas  de  interés * 

Los  trucos  de  magia  enviárnoslos  compro¬ 
bados,  pues  hay  varios  incorrectos.  ¡Ah!  y 
no  nos  mandéis  trucos  repetidos ¡Listos!. 
Premios :  Ver  pág.  5. 


NO  AL  REDO  FROM  START 

Cada  dia  son  más  los  usuarios  de  CBM-64  y  VIC-20,  que  realizan 
programas  de  aplicaciones  técnicas,  de  gestión,  educativas,  etc,,.  Por 
esta  razón,  creo  que  esta  sección  de  MAGIA  con  sus  pequeños  trucos, 
tiene  una  gran  importancia  en  el  acabado  de  estos  programas. 

Os  adjunto  el  listado  de  una  subrutina  que  puede  ser  muy  útil  para 
evitar  que  el  inoportuno  "REDO  FROM  START",  desfigure  una  pan¬ 
talla,  laboriosa  de  realizar,  en  la  que  el  operador  ha  de  introducir  varios 
datos. 

Esta  subrulina  utiliza  la  instrucción  GET,  en  lugar  del  usual  INPUT, 
pudiendo  así  analizar  uno  a  uno  los  caracteres  introducidos  por  teclado 
y  colocarlos  en  el  lugar  de  La  pantalla  que  más  nos  interesa. 

READY. 

100  PRINT“[CLRnX=l2:Y*:GOSUB500:PRlNTXIS;YIS;MINTRO- 
DUCE  NUMERO  -  ” 

1  10  GETA$:  1FA$='”THEN  1 10 

120  LFASQ AÜ>=45ANDA|$=""THEN AI$=AI:GOSUB6I0:GOTO1 10 
130  IFASC(A$}=  1 3THENA=VAL(A  1$):AI$— "‘\GOTO  SALIR  A 
CONTINUAR  PROGRAMA 

1 40  i  FASC{ A$)=20ANDLEN{ A  1$)^2THEN A 1  $=“":GOSUB600 : GO¬ 
TO  l  10 

150  l  FASC(  A$)=20TH  EN  A  l$=LEFT$(A  1  $,LEN(A  1$) —  1  ):GOSU  B600 
:GOTO1I0 

160  IFASC(A$)c48ORASQA$)>57THENGOTGll0 

170  AÍ$=AI$+A$;GOSUB610:GOTOU0 

500  X$=”lHOME][23  CRSR  Djl>:Y$="L40  CRSR  RJ" 

510  X 1  $=LEFT$(X$,X+ 1 ): Y  l$=LEFTS(YSt Y):R£TURN 
600  X~ I2:Y— 22:GOSUB500:PRINTX l$;Y  1$*‘[  17  SPOT 
610  X=  t2:Y=22:GGSUB500;PRINTXl$;Yl$;AIS;RETURN 

Alex  Pare  Hada  Frouchtman 
Angel  Guimerá,  i  ¡-2a -2.a 
S.  Cugal  del  Valles 
BARCELONA 

REPETICION  DE  UNÍAS 

Algunas  veces  nos  encontramos  en  un  programa  con  líneas  que  son 
iguales  y  os  mando  un  truco  (muchos  de  vosotros  ya  lo  conoceréis)  que 
sirve  para  no  repetir  la  linea.  Ahí  va: 

Sólo  hay  que  cambiar  el  número  de  linea  y  pulsar  EETURN.  Pero 
cuidando  siempre  de  que  si  el  número  es  por  ejemplo  155  y  queremos 
hacer  la  156  no  sólo  debemos  de  cambiar  el  5  por  el  6,  debemos  cambiar 
todo  el  número,  (Esto  también  sirve  para  lineas  parecidas.) 

José  Manuel  Mera  Alonso 
Buenos  Aires,  2-2°  C 
VIGO  (Pontevedra) 


PROTECCION  DE  USTADOS 

1}  Para  proteger  los  listados  del  VIC. 

1  REM(SHIFTL) 

Cualquier  listado  encabezado  con  esta  linea  de  programa  será  impo¬ 
sible  de  listar  Naturalmente,  eliminando  esta  linea,  d  programa  podrá 
ser  listado,  pero  hay  métodos  para  hacer  invisible  esta  línea  {que  creo 
han  salido  en  esta  misma  sección  y  por  tanto  no  los  repito)  con  lo  cual 
toda  persona  extraña  al  programa  no  sabrá  qué  linca  tiene  que  eliminar 
(aunque  si  sabe  cómo  trabaja  el  VJC-20  no  le  costará  encontrarla). 

2)  POKE  808,  129  inutiliza  las  tedas  R UN/STOP  y  RESTORE. 

3)  Para  borrar  una  linea  (o  fila)  de  la  pantalla: 

POKE  781>X;SYS  60045 

siendo  X  un  nQ  entre  0  y  22  correspondiente  a  la  fila  que  se  quiere 
borrar. 

Rere  Busquéis  Congost 
Rambla  Llibertat,  16 
J70Q4  GIRO  NA 

ERRORES  EN  DATAS 

Os  mando  un  pequeño  programa  que  nos  ayuda  a  encontrar  los 
errores  en  las  sentencias  DATAS.  Ahi  va: 
nnnlO  A=  9999999999 

nnnI5  PRINT  "(CLR)VD,  Está  en  la  ¡inca  data  número  (R)"; 

PEEK  (63)  +  256  X  PEEK<64) 
nnn20  PRINT  "La  data  de  esta  línea  es  (R)";  A$ 
nnn2J  PRINT  "(10  cursores  abajo" 
nnnJO  1E  VAL  (AS)  ()  INT  (VAL<A$))  THEN  PRINT 

“(R)  usted  ha  confundido  un  punto  con  una  coma" 
nnn40  ÍF  RIGHTS(STRS(VAL(A$)),  LEN  (A$>)  ()  AS  THEN  PRINT 
"(R)  usted  ha  dignado  una  letra" 
nnn50  INPUT  A 

nnnóO  if  a=  9999999999  THEN  RETURN 

nnn70  IF  A  ()  VAL  (A$)  THEN  PRINT  "(R)  Data  equivocada" 

nrinSO  PRINT  "Pulse  espacio  para  continuar" 

nnn90  GET  RES;  IF  RES  O  "  "  THEN  nnn9Ü 

nnlOO  RETURN 

Como  habréis  visto,  este  pequeño  programa  está  preparado  para  ser 
una  subrutina.  Antes  que  nada,  si  el  programa  principal  tiene  la  sns* 
micción  READ  A,  deberá  ser  cambiada  por  READ  Á$, 

La  línea  nnnl5  nos  dice  la  línea  DATA  que  está  leyendo. 

La  linea  nnn2ü  nos  dice  la  data  que  está  leyendo  en  ese  momento. 

La  linea  nnn3Ü  nos  dice,  si,  al  escribir  las  datos,  se  nos  ha  colado 
alguna  coma.  OJO.  Esta  línea  no  servirá  si  trabajamos  con  DATAS 
fraccionarias  o  no  enteras.  Esta  linca  es  muy  fácil.  Sí  un  número  no  es 
igual  a  su  parte  entera,  es  porque  tiene  decimales. 
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La  línea  nnn4ü  nos  avisa  si  hemos  digitado  una  letra»  como,  por 
ejemplo»  una  "1**  por  un  uno,  o  una  “O"  un  tí. 

En  la  linca  nnn5()  nosotros  le  damos  al  ordenador  el  valor  que  cree¬ 
mos  que  tiene  esa  DATA,  y  si  no  coincide,  nos  contestará  lo  que  apa¬ 
rece  en  la  línea  nnn7G»  Esto  es  muy  útil  cuando  son  dos  personas. 
Cuando  una  dicta,  la  otra  dígita,  hasta  encontrar  la  DATA  mal. 

Pero»  también  hay  otra  forma  de  hacerlo»  Como  en  la  línea  nnn20, 
nos  va  saliendo  la  DATA,  cuando  lleguemos  ai  INPUT,  si  se  quiere, 
basta  con  pulsar  RETUR  N.  para  que  salga  la  siguiente  data. 

Creo  que  este  programa  nos  ahorra  bastantes  quebraderos  de  cabeza 
con  las  DATAs,  sobre  todo,  a  la  hora  de  encontrar  la  que  está  maL 

Juan  Martin 
Las  Palmas 


EFECTOS  ESPECIALES 

Hola,  gente,  estoy  aquí  porque  he  descubierto  una  nueva  MAGIA. 
Esta  les  va  a  encantar  a  los  que  hagan  jueguHos  con  explosiones  y  esas 
cosas. 

Bueno,  esta  es: 

00001  PRINT  "(CLR)  DEMOSTRACION  DEL  MOVIMIENTO" 

00002  P=  53265 

00603  INPUT  A 

00004  1F  A=  -1  THEN  END 

000I0  FOR  V—  0  TO  99 

00020  POKE  P,  27 

00030  GOSUB  00100 

00040  POKE  P,  A 

ÍJ0Ü50  GOSUB  OÜ10Ü 

ÍKJ06Ü  NEXT  V 

00070  GOTO  l 

00080 

OOIÜÜ  FÜR  T=  tí  TO  250:  NEXT  T 
00110  RETURN 
00120  : 

Con  esto  se  consigue  que  la  pantalla  haga  efectos  raros,  según  el  valor 
que  le  demos  a  A  (línea  00003),  por  ejemplo,  podéis  probar  con  éstos: 
Cuando  A=87,  la  pantalla  se  encoge. 

Cuando  A -79,  la  pantalla  aparece  y  desaparece. 

Cuando  A -60,  la  pantalla  parpadea  con  "basura". 

Cuando  A  =88,  la  pantalla  se  mueve  de  arriba  a  abajo»  Esto  queda 
interesante  con  un  ruido  de  explosión.  Párece  un  terremoto» 

Cuando  A=255,  lo  mismo  que  cuando  A=79,  pero  en  negro. 

“Na”,  que  soy  un  genio. 

La  verdad  que  es  muy  interesante  eso  de  hacer: 

ID  FOR  X=OR  TO  65ÓOO 
20  PRINT  X 
30  POKE  X.  34 
40  NEXT 

Lo  malo  es  que  cada  dos  por  tres  se  queda  "clavado",  ¡i hay  un 
tnicolí,  pero  luego  hay  que  recoger  el  programa  de  nuevo.  ¡¡¡Una  lata! T ! 

Juan  Martin 
Las  Palmas 


ANTI-LIST 

Os  mando  mi  primera  colaboración,  que  espero  sea  de  utilidad  para 
los  demás  compañeros.  Lo  que  escribo  es  lo  siguiente.  Respecto  a  la 
función  SQR(X),  que  se  puede  simplificar  por  esta  pequeña 

instrucción:!»  5 

También  los  siguientes  POKEs: 

Al  listar  un  programa  si  escribimos  POKE7774,34:PQKE775,253,  y 
escribimos  LIST,  el  programa  se  autodestruye,  desviando  la  dirección 
de  memoria. 

C.  Luis  Cerón 
Plaza  de  España,  5-2° 
A  ImendraJeJo  ( Bada jo  z) 
Tengo  13  años. 


FACTORIALES 

Soy  lector  habitual  de  la  revista  Commodore  World,  poseo  un 
CMB-64  desde  hace  algunos  meses  y  es  una  pena  que  cuando  John  G. 
Kemeny  y  Thomas  E,  Kurtz  idearon  por  primera  vez  el  lenguaje  BASIC 
pensarán  que  con  una  potencia  de  cálculo  de  10  elevado  a  la  38  hubiera 
más  que  suficiente  para  cualquier  aplicación. 

Lo  cual  es  falso  en  más  de  una  ocasión»  para  solventar  este  inconve¬ 
niente,  he  ideado  un  sistema  el  cual  no  ocupa  más  que  una  línea  de 
programa,  esto  es: 

I»  IF  a>!0  THEN  A=A/I0  :  H=H+J  :  GOTO  80 


Para  ilustrar  su  aplicación  envío  un  pequeño  programa  que  realiza  el 
factorial  de  un  número. 

10  rem  PROGRAMA  DE  FACTORIALES  ENESIMOS 
20  PRINT1CLR]  [I4CRSRR]  FACTORIALES  [2CRSRDP 
30  A=  :  HN):  POK  £53280,6 

40  INPUT"  ?  SU  NUMERO  ES";  N:  PRINT"  [CLRJ" 

50  IF  N  <0  THEN  PRINT"  NO  EXISTE  FACTORIAL  PARA  N 
NEGATIVOS"  :GOTG  200 
ótí  IF  N=0  THEN  PRINT"  NN  I"  :  GOTO  20tí 
70  FOR  X— 1  TO  N:  A=A*X 
80  IF  A>10  THEN  A=A/!0  :  H=H+1  :  GOTO  80 
90  NEXT:  IF  H  <9  THEN  PRINT  N;"Í=";A*  GOTO  200 

100  PR]NTN;"!=";A:"E";H 

200  PRINT  TAB<5)  "[5  CRSRDJ  PULSAR  PARA..»" 

210  PRINTTABU0)  "  OTRO  NUMERO . 1" 

220  PRJNTTABfltí)"  FIN  DE  TAREAS . »,.2" 

230  INPUT  N  :  IF  N=I  THEN  20 
240  END 

Esto  es  todo  por  ahora»  Espero  haberos  sido  útil* 

NOTA:  Si  se  quita  la  linea  80,  se  observará  que  el  mayor  factoría!  que  se 
puede  hacer  es  de  33. 

José  Pullo  Batalla 
Viiaf ranea,  2 .  Aptos,  SOL  IXENT  2 
C om arruga  (Tarragona) 


TRUCOS  EN  IMPRESORA 

Estos  trucos  son  para  el  C-64  y  son  trucos  de  una  sola  linea. 

Ia  TRUCO  PARA  RESOLVER  UNA  ECUACION  DE  SEGUNDO 
GRADO  DE  LA  FORMA:  a*J  +  bx  +  e  =  0: 

Este  truco  es  muy  eficaz  para  los  medianos  estudiantes  como  yo  y 
además  ahorra  muchísimo  tiempo  en  la  resolución. 

Aparecerá  en  la  pantalla: 

? 

?? 

7? 

En  la  primera  interrogación  tenemos  que  introducir  d  valor  de  a,  en 
la  segunda  interrogación  introduciremos  el  valor  de  b  y  en  la  tercera  el 
valor  de  c.  Mucho  cuidado  con  intentar  resolver  ecuaciones  sin  solución 
dentro  de  los  reales  va  que  entonces  se  generaría  el  mensaje  de  error: 

?  LL LEGAL  QUANT1TY  ERROR  IN  I 
El  truco  es  el  siguiente: 

l  INPUTA,B.C:X— B+SQR(Bf2— A*CM):X=X/2*A:?X:Y=—  B— SQR 
( Bf  2 — A  *C*4):  Y= Y/2*  A  :7  Y 

2°  EFECTOS  ESPECIALES: 

Este  truco  es  digno  de  ver  porque  genera  cosas  muy  bonitas  en  la 
pantalla  que  no  explico  porque...  “Más  vale  una  imagen  que  mil 
palabras”. 

Este  es  el  truco: 

I  N=N-Hl:7[CLR]":FORT— 1024TO2025STEPN:POKET,81:NFXT: 
GOTOl 

Rafael  Alberto  García  Medina,  17  años 
Carretera  de  Granada r,  4-3C.  Telé/  66  20  94 
Bloque  Medina  Azahar  a 
Guadix  (GRANADA) 


PRINTS  MODIFICADOS 

Queridos  amigos  de  Commodore  World,  soy  un  Vic-adicto  a  vuestra 
revista.  Os  felicito  por  la  revista,  es  estupenda. 

Os  escribo  para  mandaros  dos  programólas  cortos  para  presentación 
de  cadenas  de  caracteres.  Si  os  gustan  podéis  publicarlos  en  la  sección 
de  Magia,  si  no  en  el  cesto  de  los  papeles  estarán  bien,  no  me  enfado. 

El  primer  programa  coge  la  cadena  y  la  presenta  en  pantalla,  carácter 
a  carácter,  de  derecha  a  izquierda  y  la  centra.  Como  es  para  el  Vie-20  la 
cadena  tiene  que  ser  de  I  a  22  caracteres  para  que  funcione  bien. 

I0CS  =  "cadcna":prim"  [2CRSRDJ  *':LC=Lcn(C$) 

20  For  X  =  2 1  lo  (22-LC)/2  step-  1:M=<22-X );  I FM  >LC  Them  M  =  LC 
30  print  tab  (X)  "[3CRSRU]"  left  $<C$,M)"  [22spcj" 

4(1  For  L  =  1  lo  I5ü:Mext  L,  X 

Variando  el  valor  150  de  la  línea  40  las  cadenas  salen  más  lentamente 
o  más  rápidamente. 

El  segundo  programa  hace  lo  mismo  que  el  primero  pero  entra  la 
cadena  de  izquierda  a  derecha  de  la  pantalla. 

1 0C$="cadena":  LC= Len(CS) 

20ForX=  to  (22-LC)/2+LC:M=X:IFM>LCTHEN  M=LC 
30  print  tab  (X-M)  "[2CRSRU]  [22spc]"  RightS(C$.M) 

40  For  L=l  to  l50:Next  L,X 

Sin  más  me  despido  de  vosotros  hasta  otra. 

Santiago  Luis  Valdré s  A  llueva 
Buenos  Aires »  8 
Zaragoza- 15 
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CARTA  BLANCA 


Primero  de  todo  os 
quiero  echar  una  pequeña 
“bronca”. 

Soy  asiduo  lector  de 
vuestra  revista  y  la  compro  puntualmente 
todos  los  meses  en  el  quiosco  de  mi 
barrio.  No  soy  suscriptor  y  no  es  porque 
os  tenga  mania  ni  nada  por  el  estilo  sino 
porque  ya  me  he  cansado  de  que  el  car¬ 
tero  me  doble  la  revista  y  la  rasque  con  el 
1  borde  del  cajetín  o  de  que  la  revista 
“vuele”  del  buzón  gracias  a  algún  vecino 
amigo  de  lo  ajeno.  (Esto  son  experiencias 
de  antiguas  suscripciones,  no  de  vuestra 
revista).  Por  eso  si  pago  más  cara  la 
revista  que  un  suscriptor  será  por  algún 
motivo  y  me  creo  con  el  mismo  derecho 
que  él  a  haceros  consultas  (¿no  es  así?). 
!  Por  eso  no  me  hace  ninguna  gracia  que 
i  cuando  os  llamo  por  teléfono  (sólo  lo  he 
hecho  dos  veces)  lo  primero  que  se  me 
pregunta  es:  ¿eres  suscriptor?,  ponién- 
i  dome  “malas  caras”  (es  un  decir)  en 
cuanto  digo  que  no. 


VIC-20 

Pías 

1, irurla  MK  RAM+2K  EPRQM 

18.900 

Tárjela  2K+2K  EPRGM 

3.695 

Tarjeta  40/80  columna s+ 

3,5K  RAM 

16.350 

Unidad  de  expansión  de  2  slots 

3,200 

Unidad  de  expansión  de  5  slots 

9,900 

Primer  Buffer  PAR/PAR  I6K 

24.790 

CBM64 

Tarjeta  80  columnas 

17.900 

Tarjeta  4K+8K  LPROM 

4  750 

Unidad  de  expansión  de  2  síots 

3.200 

Unidad  de  expansión  de  5  slots 

12  995 

Primer  Buffer  SER/PAR  32K 

27,950 

PARA  VIC-ÍO  Y  CBM64 

Tableta  gráfica  KOALA-PAL) 

21.500 

PARA  TODO  II Pü  DE  ORDENADORES 

PROGRAMADOR  DE  EPROMS 

16,995 

BORRADOR  DE  EPROMS 

8.775 

Pedidos  c  información: 

DELTABIT 

Calón,  20-4* 

SILLA  (Valencia) 

Teléf.:  (9*1  120  20  25 

Este  es  un  problema  que  ocurre,  no 
sólo  con  vuestra  revista  sino  con  la  mayo¬ 
ría  (de  cualquier  tipo)  de  las  que  hay  en  el 
mercado.  ¿Por  qué  esta  discriminación 
con  el  lector  no-suscripior?  Pensar  en  ello. 

El  otro  motivo  de  esta  carta  es  el  de 
pediros  un  favor  (qué  paradoja  ¿no?). 

Tengo  una  impresora  Admate  DP-IGÜ  y 
me  gustaría  que  publicáseis  el  programa 
que  cambia  los  caracteres  de  control  de! 
Commodore  (tengo  un  64)  a  algo  más 
legible  <[3SPC],  [5CRSRD])  ya  sé  que  este 
programa  lo  usáis  en  una  impresora 
Commodore  para  los  listados  de  la  revista 
pero  creo  que  serviría  con  cualquiera  o 
por  lo  menos  intentaría  adaptarlo  a  mis 
necesidades.  Mi  opinión  general  sobre  la 
revísta  es  bastante  buena  y  alguno  de  los 
artículos  son  francamente  interesantes  ya 
que  me  están  ayudando  a  conocer  cada 
día  un  poco  más  las  posibilidades  de  mi 
“64”. 

Al  ordenador  intento  darle  un  uso 
“serio”  (no  lo  compré  para  “matar  mar- 
cianiíos”)  y  tengo  prácticamente  termi¬ 
nada  una  “base  de  datos”  para  el  envío  de 
“mailing"  y  en  la  que  he  estado  traba¬ 
jando  algunas  semanas. 

No  os  doy  más  la  lata. 

Gracias  anticipadas. 

LUIS  MARTIN  MORIS 
MATILDE  DIEZ.  10 
28002  MADRID 

En  primer  fugar  debemos  aclarar  que  la 
pregunta  “¿eres  suscriptor?"  se  hace  nor¬ 
malmente  por  costumbre,  ya  que  fas  llama¬ 
das  que  recibimos  suelen  ser  consultas 
sobre  la  suscripción,  fecha  de  renovación , 
un  número  que  se  ha  extraviado  o  cosas 
similares,  y  se  hace  para  ir  ganando  tiempo 
al  buscar  en  el  ordenador  la  ficha  para 
comprobar  si  los  datos  están  todos  correc¬ 
tos  o  existe  algún  problema ,  También 
estamos  añadiendo  a  las  fichas  de  ios  sus¬ 
cripto  res  sus  números  de  teléfono  cuando 
nos  llaman,  para  que  en  el  caso  de  que  nos 
devuelva  un  número  de  la  revista  el  cartero 
podamos  comprobar  si  fue  por  error  o  cuál 
fue  la  causa. 

Nadie  pone  malas  caras  cuando  se  dice 
que  el  que  llama  no  es  suscriptor,  no  hace¬ 
mos  por  tanto  ninguna  discriminación,  y  de 
hecho  nos  han  llamado  algunas  veces  lecto¬ 
res  nuestros  para  que  resolviésemos  pegas 
con  algunos  programas  de  otras  revistas 
que  no  tes  funcionaban  y  no  lo  sabían 
resolver  tos  otros.  Nosotros  intentábamos 
contestarles,  pero  algunas  veces  es  muy 
difícil ,  ya  que  no  conocemos  los  programas. 

Respecto  a  la  impresora,  imaginamos 
que  ya  tienes  el  programa  que  hace  que  tos 
open  4,4,  ios  print  Ú4t  etc.,  funcionen  con 
ella ,  y  en  caso  contrario,  tenemos  prepa¬ 
rado  para  enero  o  febrero  un  artículo  sobre 
esto .  Si  lo  que  necesitas  es  el  programa  que 
cambia  los  caracteres  gráficos  de  las 
impresoras  Commodore  por  las  siglas  que 
utilizamos  en  la  “ clave  para  interpretar  los 


listados",  debo  decirte  que  fue  publicado  en 
el  número  6  de  Club  Commodore  bajo  el 
titulo  de  “ los  nuevos  listados  de  club  com¬ 
modore ”  y  nosotros  sólo  le  hemos  hecho 
unas  pequeñas  modificaciones  y  lo  hemos 
compilado  con  ayuda  del  compilador  Blitz 
para  que  su  velocidad  al  “ traducir  "  tos  lis¬ 
tados  sea  mayor,  ya  que  el  tiempo  es  dema¬ 
siado  importante  cuando  se  tienen  que 
hacer  cientos  de  listados. 

En  particular  yo  mismo  tengo  una 
Admate  DP-80,  y  tengo  que  modificar  este 
programa  para  obtener  los  símbolos  de  fle¬ 
chas  arriba  y  a  la  izquierda  del  Commo¬ 
dore,  ya  que  esta  impresora  no  dispone  de 
estos  caracteres.  También  puedo  comen¬ 
tarte  que  va  fabulosamente  bien  con  el  pro¬ 
cesador  de  texto  11 Easy  Script"  del  Com¬ 
modore  64  y  que  gracias  a  los  cambios  de 
idiomas  de  que  dispone  (8  idiomas  en  total} , 
puedo  utilizar  aperturas  de  admiración, 
interrogación,  acentos,  etc.,  con  ella . 

Esperamos  que  si  tienes  cualquier  pre¬ 
gunta  nos  escribas  o  llames  por  teléfono, 
y ...  no  te  molestes  por  la  típica  pregunta 
es  la  costumbre,  no  por  discriminar. 


¿RESET  O  BORRADO? 

—En  la  revista  nc  3 
(abril  84),  pág.  38,  se 
explica  cómo  añadir  la 
tecla  RESET  a  un  orde¬ 
nador.  Pero,  pregunto:  Al  añadir  esta 
tecla  y  pulsarla  ¿qué  sucede  con  lo  que 
haya  en  la  memoria?  ¿Se  guarda  o  des¬ 
aparece?  Porque  en  el  caso  de  que  todo 
vuelva  a  estar  como  al  principio,  no  veo 
qué  ventaja  tiene  la  tecla  respecto  a  des¬ 
conectar  el  ordenador. 

— ¿Cuáles  son  los  limites  de  tempera¬ 
tura  que  tolera  el  C-64?  (Funcionando 
normalmente,  claro). 

— ¿Cuántos  ordenadores  existen  en 
España?  Y  de  ellos,  ¿cuántos  Commodore? 

—En  la  feria  INFORMAT-84,  que 
formaba  parte  de  EXPOTRONICA,  el 
pasado  mes  de  mayo,  en  Barcelona, 
pudimos  ver  un  C-64  que  hablaba.  Qui¬ 
siera  saber  cómo.  Es  decir,  ¿se  trata  de  un 
programa  que  aprovecha  el  generador  de 
sonido  del  C-64,  o  había  algo  más? 

Bien,  por  ahora  nada  más.  Saludos. 

JUAN  MAURI I  CANET 
APTDO.  DE  CORREOS  4 
LA  ROCA  (BARCELONA) 

L  Los  programas  que  hay  en  la  memo¬ 
ria  desaparecen.  En  realidad  no  desapare¬ 
cen,  pero  el  ordenador  así  lo  cree.  Los  grá¬ 
ficos,  por  ejemplo,  siguen  tal  y  como 
estaban,  al  igual  que  tos  programas  en  len¬ 
guaje  máquina , 

2.  Los  chips  suelen  funcionar  bien  hasta 
50-60  grados.  Hay  que  tener  en  cuenta  que 
la  temperatura  externa  del  64  no  es  la 
misma  que  la  temperatura  inferna. 


56/ Commodore  World  Diciembre  1984 


•  •  • 


S€RMOS 


3.  Desconocemos  tos  datos  exactos, 
porque  el  número  aumenta  día  a  día,  asi 
que  no  podemos  darte  una  respuesta  exacta. 

4.  Los  hay  de  dos  tipos ,  ios  que  funcio¬ 
nan  a  base  de  programa  y  los  que  utilizan 
además  un  sintetizador  de  voz *  Descono¬ 
cemos  cuál  es  el  que  viste. 


ACLARACIONES 


Les  tengo  que  decir 
que  al  recibir  el  n0  9  de 
su  revista  me  he  llevado 
una  sorpresa  al  no  ver  La 
"abeja"  de  meted ura  de  pata  del  n0  8, 
puesto  que  hay  un  par  de  listados  que  no 
me  dan  resultado*  por  lo  que  les  escribo  a 
vuelta  de  correo  para  que  en  el  próximo 
número  de  su  revista  me  puedan  aclarar  el 
error  sí  puede  ser. 

En  el  programa  “Asterisco”  de  la  pág. 
38,  al  escribir  la  linea  2110  y  al  apretar  La 
tecla  Return  me  sale  un  mensaje  de  error 
todas  las  veces  que  lo  he  intentado,  me 
parece  que  es  debido  a  que  es  demasiado 
larga  la  línea,  ya  que  si  la  escribo  con  4 
dígitos  menos  sí  me  entra,  pero  claro, 
supongo  que  luego  ya  no  iría  el  programa. 

El  segundo  programa  es  el  que  hay  en 
la  pág.  34  “Laberinto*'  pues  de  la  línea 
230  a  la  260  hay  las  instrucciones  para 
mover  el  pac-man  y  sorpresa  se  me  pre¬ 
sentó  al  comprobar  al  acabar  el  programa 
que  por  mucho  que  aprietes  esas  teclas  el 
pac-man  no  se  mueve  de  sitio,  pero  en 
cambio  sí  que  se  mueve  con  el  joystiek. 

Bien,  esto  es  todo,  espero  que  me  lo 
aclaren  en  el  próximo  número,  si  puede 
ser,  y  les  doy  las  gracias  por  adelantado. 

GARLES  BALA  ÑA  MA GRANE 
TI  VOLf  ¡1-5  A 
REUS  (TARRAGONA) 


Las  preguntas  que  tengáis  que  hacer 
sobre  programas  de  COLABORACIO¬ 
NES,  es  mejor  que  las  hagáis  a  los  propios 
autores ,  ya  que  para  eso  publicamos  su 
dirección . 


MAS  MEMORIA 


1. — Para  pasar  los  &  K 
del  cartucho  VIC-I 1 10  a 
ROM.  en  lugar  de  a 
RAM,  basta  con  desco¬ 
nectar  d  interruptor  l  y  conectar  los  otros 
tres. 

(Asúljjj  ) 

[234 

Para  sumar  8  K  RAM  +  lf>  K  RAM, 
insertando  los  dos  cartuchos  de  amplia¬ 
ción,  la  posición  es:  desconectar  el 
I  número  2  y  conectar  los  otros  tres. 

■  (juj  )■ 

Para  sumar  8  K  RAM  a  los  3  K  de  la 
versión  base,  se  desconecta  únicamente  el 

4-ÍJJJ1  )■ 

Pero  ¿qué  ha  de  hacerse  para  obtener 
I  los  32  K  que  pueden  lograrse  con  los  tres 


cartuchos  de  ampliación,  de  modo  que 
resulte  efectiva  la  suma? 

2. — No  encuentro  en  ninguna  parte  el 
significado  exacto  de  este  mensaje  de 
error: 

?  FILE  DATA 
ERROR  IN,„. 

¿Podéis  decírmelo? 

3. — Ejecutad  este  programa  con  una 
sola  instrucción: 

10  FOR  í  =  7  TO  28  :  PRINT  I  *  I  f  2  ■ 
NEXT 

¿os  da  el  mismo  incorrecto  y  asombroso 
resultado  que  a  mi?  ¿Por  qué  demonios? 

4.  — Dos  txuquitos  basados  en  los 
"PQKES"  de  control  de  la  pantalla  de 
trabajo. 

A)  Temblor  de  tierra  (muy  útil  para 
acompañar  a  explosiones). 

10  FORT  -  l  TO  10  ;  POKE  36865, 
PEEK  { 36865)+ l:FORI=l  TO  MV 
NEXTLPOKE  36865.PEEK  (36865)—  I 
20  FORJ=  ITG50:NEXTJ,T 
,T;  número  de  veces  que  se  ejecuta  cada 
pareja  "subida-bajada”. 

■+L-L  Altura  del  movimiento  (intervalo. 
Modificable  desde  el  ligero  temblor  a  la 
sacudida), 

■  L  Tiempo  muerto  entre  cada  subida  y 
cada  bajada. 

J:  Tiempo  muerto  entre  cada  bajada  y 
cada  subida, 

B)  Efecto  "paso  de  diapositiva” 

10  FOR  1=1  TO  35: POKE  36864 J:NEXT: 
FOR  1=35  TO  1  STEP—  LPOKE 
36864 J;  NEXT: POKE  36864,12 
.Sin  comentarios.  Aún  es  mejor  sustitu¬ 
yendo  la  última  orden  por 
FOR  K-!  TO  12: POKE  3ó864,K:NEXT  K. 
GUILLERMO  FATAS 
STÁ.  TERESA  r  58-2° 

50006  ZARAGOZA 

1.  32  K  no  se  pueden  tener  a  la  ve;.  El 
máximo  son  28  K=I6K+8K+3K  de  memo¬ 
ria  standard.  Los  otros  3K  se  guardan  para 
rutinas  en  código  máquina  y  no  son  accesi¬ 
bles  desde  Basic , 

2.  Esto  se  da  cuando  hay  un  error  en  los 
datos  del  archivo.  Es  un  mensaje  del 
KERNAL. 

3 .  Se  debe  a  pequeñas  operaciones  que 
realiza  el  ordenador  para  manejar  los 
datos ♦ 


LOAD  EN  MODO  DE  PROGRAMA 


El  motivo  de  Ja  pre¬ 
sente  es  el  siguiente:  I 
Tengo  un  Commodore  64.  I 
A  la  hora  de  enlazar  | 
diversos  programas  de  una  aplicación  uti-  1 
lizo  el  comando  "load”,  en  modo  de  pro¬ 
grama  de  la  siguiente  manera: 

Por  ejemplo: 

if  a=0  then  load  "pepito' \8 

El  resultado  es  que  se  pone  a  cargar  el 
programa  "pepito",  pero  no  lo  carga  del 
todo,  sino  parte  del  mismo,  además  de 


cargar  otras  cosas  tales  como:  signos 
raros  entre  los  que  se  encuentran  las 
palabras  del  Basic  todas  juntas,  con  cam¬ 
bios  del  color. 

El  código  máquina  no  lo  empleo  para 
nada  a  excepción  de  algún  “poke"  para  el 
mapa  de  memoria  de  la  pantalla.  Tam¬ 
poco  toco  ningún  puntero  de  ninguna 
clase. 

Esperando  que  haya  quedado  claro  mi 
problema,  se  despide  hasta  otra  ocasión, 

ANDRES  PASCUAL  RINCON 
FELIX  LAFUENTE,  4-6*  DCHA 
22004  HUESCA 

La  forma  correcta  de  cargar  el  programa 
seria:  POKE653,  Í3Í.POKEJ98,  l:EM). 
Ahora  bien,  esto  NO  conserva  las  variables. 
Para  conservarlas  hay  que  hacer  un  L  OAD 
en  la  forma  normal ,  pero  el  primer  pro¬ 
grama  ha  de  ser  necesariamente  MA  YOR 
que  el  programa  que  se  va  a  cargar. 


¿INCOMPATIBILIDADES? 

Me  gustaría  que  me 
pudieran  indicar  acerca 
de  este  problema  que 
tengo:  Me  compré  un 
COMMODORE  64  y  un  datassette  en 
Escocia  y  acabo  de  leer  en  la  revista 
(COMMODORE  WORLD,  naturalmente) 
que  puede  haber  y  de  hecho  hay  unas 
incompatibilidades  entre  los  C-64  de 
Gran  Bretaña  y  los  de  aquí,  sobre  todo  al 
trabajar  con  ellos  por  pantalla;  así  que  les 
estaría  muy  agradecido  que  me  indicaran 


VIC  20 

TARJETA  MULTIFUNCION 

•  Amplía  64  K  RAM 

•  Zácalo  8  K  EPROM 

•  (Traspasa  y  ejecuta 
desde  cinta  programas 
de  cartuchol  (Novedad) 

p.v.p.:  20.600  pts. 

Pedidos  a  ICR 
C/  Farnés,  39 
Barcelona  08032 

Elija  forma  de  pago: 

O  Talón  bancario 
□  Contrareembolso 
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PONGA  UN  ORDENADOR  EN  SU 
OFICINA  O  EN  SU  CASA 


PREGUNTONES 


para  e i  lenguaje  FOKTH,  etc. 

Me  gustaría  contactar  con  usuarios  del 
COMMGDORE  64  para  intercambio  de 
programas.  Llamar  de  10  a  l !  o  escribir  a: 

PABLO  PERNAS  GARCIA 
GRAN  VIA ,  135  CHALET 
VI G O  (PONTEVEDRA) 

En  lo  relativo  al  manual  del  Simón  's 
Basic  en  castellano,  tenemos  que  decirte 
que  nosotros  no  publicamos  este  manual  ni 
lo  vendemos,  además  de  que  la  única  copia 
que  tenemos  del  manual  es  el  original  en 
inglés,  y  no  sabemos  si  Micro  Electrónica 
lo  habrá  traducido  al  castellano. 

Estamos  intentando  preparar  artículos 
para  los  diferentes  cartuchos;  Sintons, 
Bredens  Basic,  Vk-tree ,  Forth ,  File  Boss, 
Master ,  etc.,  pero  debes  reconocer  que  son 
tantos  y  tan  variados  que  es  prácticamente 
imposible  satisfacer  a  todos  al  mismo 
tiempo . 


cuáles  son  éstas  diferencias  y  si  son  fáciles 
de  modificar,  y  si  tendré  algún  problema 
para  acoplarle  una  impresora  o  cualquier 
otro  periférico  de  aqui. 

RAMON  ARENAS  RODRIGUEZ 
CAMPO  A  MOR,  23 
33001  OVIEDO 

Creemos  que  no  existen  incompatibili¬ 
dades  entre  los  Commodore  64  de  Escocia 
y  los  de  España ,  la  única  que  conocemos  es 
que  no  recibirás  el  sonido  por  el  altavoz  de 
tu  televisor,  pero  puedes  solucionarlo 
conectando  la  salida  trasera  ^audio  out- 
put M  de  tu  C-64  a  la  entrada  de  un  amplifi¬ 
cador  de  sonido  exterior. 

No  sabemos  de  otro  tipo  de  incompatibi¬ 
lidades  con  ningún  tipo  de  periféricos t  pero 
para  comprobarlo  es  mejor  que  te  pongas 
en  contacto  con  los  distribuidores  exclusi¬ 
vos  de  Commodore  en  España ,  que  como 
ya  sabrás  es  Micro  Electrónica  y  Control. 


Lo  necesito  para  el  C-64.  Otra  cosa: 
¿quién  tiene  por  ahí  a  mano  la  correspon¬ 
dencia  entre  posiciones  de  memoria 
(POKE)  del  VÍC-20  y  el  C-64? 

JOSE  LOPEZ 

C/MORATIN ,  5  -  BUZON  5 
28014  MADRID 


En  este  mismo  número  hemos  publicado 
en  el  cursillo  de  lenguaje  máquina  la  forma 
en  que  hacía  el  auto-run  el  comando  OLD, 
creo  que  es  una  buena  forma  de  proteger 
programas.  En  Barcelona  están  prepa¬ 
rando  una  serie  sobre  protecciones  que 
cuando  se  termine  esperamos  poder  publi¬ 
car ...  claro  que  al  publicar  una  protección 
se  está  dando  automáticamente  la  forma  de 
desprotegerlo,  de  modo  que  creo  que  la 
mejor  protección  que  podías  ponerle  a  tus 
programas  es  aquella  que  se  te  ocurriese  a 
ti  mismo  y  no  se  la  dijeses  a  nadie . 

Ten  en  cuenta  que  toda  protección  se 
puede  levantar  por  complicada  que  sea,  y 
siempre  hay  alguien  capaz  de  hacerlo  (yo 
conozco  uno  que  ha  levantado  todo  lo  que 
ha  cogido...).  La  mejor  protección  que  pue¬ 
den  poner  en  sus  productos  las  casas,  es  una 
buena  información,  manuales,  precios  com¬ 
petitivos,  etc.  que  hagan  preferir  el  pro¬ 
ducto  original  frente  a  las  copias. 


PROTECCIONES 

Hola,  quisiera  saber  si 
tenéis  por  ahi  (o  algún 
y  \,  lectorcete),  por  lo  que  os 

t _ _ N  agradecería  que  publicá- 

rais  esta  nota  en  11  seamos  preguntones'’  y 
“Market  Club"  algún  programita  para 
evitar  que  las  grabaciones  en  cinta  pue¬ 
dan  ser  copiadas  sin  autorización  (para 
evitar  “copias  piratas"  ya  sabéis).  A 
quien  lo  tenga,  le  agradecería  que  me  lo 
comunicara. 


P  ri  mero  fe  l  ic  i  tari  es  po  r 
vuestra-nuestra  revista, 
y  la  cual  me  gusta  mucho, 

C _ _ -J  Me  llamo  Pablo  y 

tengo  14  años.  Me  gustaría  saber  si  me 
podéis  enviar  una  fotocopia  del  manual 
de  SIMGN'S  BASIC,  ya  que  lo  compré  en 
Inglaterra  y  no  sé  traducirlo  todo. 

Ahora  una  sugerencia:  por  qué  no 
publican  programas  en  Código  Máquina 
y  programas  para  el  SIMONS  BASIC, 


~P  Para  limpiar  el  datas- 
I  y^^T  set  te,  qué  es  preferible 

y  x.  algodón  y  alcohol  o  una 

- - cinta  limpiadora,  yo  les 

pregunto:  cualquier  cinta  limpiadora  o 
alguna  especial. 

Qué  cartuchos  de  ayuda  al  programa¬ 
dor  existen  para  el  VIC-20  a  excepción  del 
Superexpander  y  sus  precios, 

EJUIS  JORGE  LOPEZ 

En  principio  es  indiferente ,  pero  existen 
algunas  diferencias;  la  cinta  limpiadora  no 
deja  residuos,  y  el  algodón  impregnado  en 
alcohol  puede  dejarlos  pero  un  poco  de 
algodón  es  más  barato  que  una  cinta  lim¬ 
piadora,  si  tienes  cuidado  con  los  restos  de 
algodón  que  se  quedan  en  la  cabeza ,  el 
resultado  es  similar  y  puedes  utilizar  los 
dos  métodos  indistintamente. 

Entre  los  cartuchos  de  ayuda  al  progra¬ 
mador  te  puedo  citar  sólo  el  que  tú  mencio¬ 
nas,  el  de  ayuda  al  programador  y  el  vic- 
tree ,  pero  tos  precios  deberás  preguntarlas 
a  sus  distribuidores  respectivos  ya  que  no 
los  tengo  (Micro  Electrónica  y  Saltad). 


PROGRAMAS  PROFESIONALES  CON 
LOS  EQUIPOS; 


OLIVETTI 

PERSONAL 

COMPUTER 


DUVICENTRO  Duque  de  la  Victoria,  13 
Tienda  15  Teléf.  39  65  84 


58/Commodore  World  Diciembre  1984 


Video 
Casino 

Sopa 
de 

letras 

Por  David  L>,  HÜSClt  (KUN.  EE.UU-) 

Traducido  por  Valerio  SHANKS  y  adaptado  por  Alvaro  IBAÑEZ 

Te  va  a  costar  trabajo 
encontrar  tu  propio  nombre 
en  este  laberinto. 

En  la  sección  de  "  Video  Casino”  hemos  procurado 
publicar  un  surtido  de  programas,  unos  controlados 
por  el  joystick,  otros  estilo  “marcianilos”  y  otros  que 
son  los  tradicionales  juegos  de  palabras  adaptados  al 
ordenador.  Este  tipo  de  juegos  siempre  ha  sido  bien 
aceptado  por  los  usuarios  de  i  ordenador  personal  dado  que 
son  mucho  más  fáciles  de  escribir  y  jugar  que  los  juegos 
que  requieren  gráficos  complicados. 

El  juego  “Sopa  de  Letras"  es  una  variante  de  los  juegos  en 
que  una  palabra  o  serie  de  palabras  se  esconden  en  una 
matriz  de  letras.  Para  empezar  hemos  incluido  unas  cuantas 
palabras  en  este  programa,  pero  puedes  añadir  palabras 
tuyas  si  quieres.  No  te  preocupes  si  empiezas  a 
familiarizarte  con  una  de  las  palabras  y  la  encuentras  con 
facilidad,  tendrás  poblemas  para  encontrar  tu  propio 
nombre* 

Escondiendo  la  letra 

En  este  juego,  sólo  se  oculta  una  palabra  a  la  vez,  dentro  de 
□na  matriz  de  15  letras  por  15  letras.  La  palabra  puede  ser 
ocultada  de  forma  horizontal  o  vertical,  hacia  adelante  o 
hacia  atrás,  pero  no  en  sentido  diagonal.  El  ordenador  te 
indica  el  tiempo  que  tardas  en  buscar  la  palabra. 

Dieciocho  palabras  están  incluidas  en  las  líneas  200-240  del 
programa  (líneas  200-245  en  el  listado  del  VIC-20).  Puedes 
añadir  todas  las  palabras  que  quieras.  Sin  embargo,  por 
mucho  que  juegues,  aunque  sea  con  las  mismas  palabras, 
no  te  vas  a  aburrir  dado  que  el  ordenador  elige  al  azar  una 
nueva  posición  inicial  cada  vez  que  empieza  y  puede 
invertir  el  orden  de  las  letras,  creando  una  matriz  diferente. 

Dado  que  una  matriz  no  es  más  que  un  “array"  de  dos 
dimensiones,  las  letras  se  almacenan  en  un  “array", 

PZ$(15,15).  Una  vez  que  el  ordenador  haya  colocado  la 
palabra  en  el  “array"  las  posiciones  que  quedan  se  llenan 
de  letras  elegidas  al  azar. 

En  cada  partida  el  ordenador  empieza  seleccionando  un 
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Sope  do  letras _ _ _ _ — - - - - 

numero  de  1  a  4.  Este  número,  C,  determina  el  sentido  en 
que  se  va  a  ocultar  la  palabra:  horizontal,  horizontal 
inverso,  vertical  o  vertical  inverso-  A  continuación,  el 
“array"  existente  recibe  un  valor  nulo  para  eliminar 
cualquier  letra  que  se  haya  quedado  allí  de  una  partida 
anterior. 

El  programa  lee  una  palabra  nueva,  WRD$,  de  las 
sentencias  Data,  y  bifurca  a  una  de  las  cuatro  subrutinas. 
Cuando  tú  eliges  esconder  una  palabra  en  sentido 
horizontal  u  horizontal  inverso,  el  ordenador  dige  una  tila 
al  azar  (de  los  enteros  1  a  15). 

A  continuación,  el  ordenador  elige  al  azar  la  posición 
inicial,  PQ  Dado  que  solamente  disponemos  de  15 
posiciones,  pero  que  las  palabras  tendrán  una  longitud  de 
más  de  una  de  letra,  no  todas  las  posiciones  son  legales.  Es 
decir,  una  palabra  de  siete  letras  no  puede  empezar  en  la 
posición  10  si  se  tiene  que  leer  en  sentido  horizontal,  dado 
que  no  le  quedará  sitio  en  dicha  fila.  Por  lo  tanto,  el 
ordenador  calcula  Pl  para  saber  el  número  de  espacios  que 
tiene  disponibles, 

A  continuación,  los  bucles  For...Next  colocan  las  letras 
que  forman  la  palabra  en  la  fila  de  “arrays”  que  utiliza 
i  M1DS.  Para  poder  colocar  las  letras  en  el  mismo  orden  en 
que  aparecen,  se  utiliza  un  bucle  For..,Ncxt  normal.  Para 
las  palabras  inversas,  se  utiliza  un  bucle  inverso  (es  decir, 
con  un  comando  Stcp  de  -  i).  Sin  embargo,  un  contador, 

CU,  te  permite  quitar  letras  empezando  desde  el  principio 
de  la  palabra. 

Para  esconder  la  palabra  en  sentido  vertical  o  vertical 
inverso,  se  utiliza  el  mismo  método,  con  la  diferencia  de 
que  se  elige  al  azar  una  columna,  COL,  en  vez  de  una  fila. 

El  siguiente  paso  es  llenar  el  “array"  de  letras  al  azar. 

Los  bucles  anidados  For...Next  se  ocupan  de  todas  las  filas 
y  columnas  en  el  "array’\  El  ordenador  comprueba  si  un 
elemento  del  "array”  está  ocupado  o  no.  Si  no  está 
ocupado,  se  coloca  al  azar  un  CHRS,  desde  CHR$(ó5)(A) 

I  hasta  CHR$(91KZ),  en  este  lugar.  A  continuación,  el 
;  "array”  sale  en  pantalla. 

Ahora  tienes  la  oportunidad  de  tratar  de  averiguar  la 
palabra,  y  el  ordenador  mide  el  tiempo  que  lardes.  Si  la 
aciertas  en  un  tiempo  récord,  el  ordenador  te  lo  indica. 


Echar  más  agua  a  la  sapa 

Este  juego  resulta  bastante  divertido  con  una  matriz  de  15 
por  15,  que  cabe  perfectamente  en  la  pantalla  de  22 
columnas  del  VIC-20.  Sin  embargo,  resulta  mucho  más 
divertido  si  aumentas  el  tamaño  de  la  matriz.  En  el  C-64 
podrías  jugar  con  una  matriz  de  30  por  20  ya  que  tienes 
una  pantalla  de  40  columnas.  Sí  abrevias  o  combinas  las 
líneas  de  mensajes  en  la  parte  inferior  de  la  pantalla,  hasta 
el  VIC-20  podrá  utilizar  una  matriz  más  grande,  de  15  por 
20,  por  ejemplo. 

Para  hacer  una  matriz  más  grande  tienes  que  realizar  más 
cambios  que  solamente  rehacer  la  pantalla.  En  primer 
lugar,  tendrás  que  ampliar  PZ$  (fila,  columna).  Los  bucles 
For.-.Next  que  proporcionan  el  valor  nulo  al  “string",  o 
que  lo  llenan  o  io  imprimen,  tendrán  que  ampliarse. 

Las  lincas  que  eligen  una  posición  al  azar  para  empezar  a 
esconder  la  palabra  también  tienen  que  modificarse.  Una 
pista:  si  quieres  aumentar  el  tamaño  de  la  matriz  tendrás 
que  cambiar  el  valor  15  (el  límite  actual  de  la  matriz) 
siempre  que  aparezca  en  el  programa. 

Por  ejemplo,  en  las  líneas  360  a  390  del  listado  para  el  C- 
64,  se  elige  la  posición  inicial  de  la  palabra  restando  la 
longitud  de  la  palabra  de  15  para  saber  las  posiciones  que 
quedan,  y  seleccionar  una  de  éstas  como  la  posición  inicial. 
Si  la  nueva  dimensión  es  de  20,  sustituyes  20  como  el  nuevo 
valor  de  15,  Esto  significa,  por  lo  tanto,  que  las  palabras 
que  utilices  pueden  ser  más  largas  que  las  que  se  han 
empleado  en  la  versión  original  del  programa. 

Asegúrate  de  que  tengas  una  copia  de  reserva  antes  de 
empezar  a  hacer  modificaciones  por  si  te  equivocas, 
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10  REM  *###*#***«***** 

20  EDI  *  # 

30  REM  *  SOPA  DE  * 

40  REM  *  LETRAS  * 

43  REM  *  * 

30  REM  a*#***##**#**** 

70  FEINT" CCLE ] [2CRSRD2 " 

30  PR  I  NT  IRE  (3)"£QRH1C  RVSQM  ]  30FF1 C  STC  ] 
DEESPC3LETRA3CBLU]  C2CRSRD] 11 
30  PR  I  NTTAB  <  1  ¿ ,f  TE  C  3RC  3  MOSTRARE  C  SPC  3  U 
NA" 

1 00  PRINTTRBC 1 > "PALABRA , HAS C 3PC 3 DE " 

3 18  PRINTTRBÍ 1 > M ENCONTRARLA CSPC3 EN ESPC 3 
EL4' 

1 23  PR 1 NTTAB C 1 > " PU2ZLEC8PC3TflH í 3 PC 1 R 
API DO" 

123  PRIMTTflEC  1  > " COMO C3FC 3 PUEDAS,  ’4 
130  FRI NTTAB í 1>" IHTRODUCEC3FC3LACSPC3 
FILACSPCJV" 

1 35  PRIHTTABC 1 > " LRtSFC 3 COLUMNA CSPCJD 
ECSPC3LR" 

1 40  PR I NTTAB  < 1 > " PR I MERA  C oFC 3  LETRA  C SFC 1 
DEC SPC 3 Lfl £ 33PC 3 PALABRA .  " 

150  PR I NTTAB í 3 > " í CRSRD 3 1 RVSOH 3 CRED3P 
UL3RC3PC3ÜNRr3PC3TECLACBLU3,t 
I£Ü  GETAi:IFflí-HMTHEHlfi0 
170  PRINT" CCLR3 " 

180  DIMPU2SC15, 15> 

190  REC=993999999 
200  DATA  ORDENADOR. TECLADO 
203  DATA  TELEVISION. REVISTA 
210  DATA  COilMOflORE- PROGRAMA 
213  DATA  CONECTO?* CORRIENTE 
220  DATA  PANTALLA* CHIP 
223  DATA  DISCO. IMPRESORA 
230  DATA  FLOTTER. JQV3TICK 
243  DATA  DIMENSION. ENCHUFE 
243  DATA  CINTA. FUNCION. # 

250  C=INTCRNDC1)#4)+Í 
2£0  F0RR-1T013 
270  FORCI^ÍTOIS 
280  PUZÍCR.Cl)*"  11 
290  NEXTC1 

300  ne:<tr 

310  RERDURDÍlF  WRDÍ-"#lh  THEN  ENE 
320  PRINT*,CCLR3CSPC3" 

333  PRINTWRDÍ 

340  OH  C  GOTO  350. 450. 370. £30 
330  RON* I NT CRNDC 1)*Í3>+1 
3£0  R=LENÍWRB*> 

370  Pi=13”F 

380  F0= I NT  C  RNO í i >*P 1 >  P0=3 
390  C2=P0+1 
400  R2-R0W 

410  F CRN- 1 T QLEN (URDÍ) 

420  PU2*ÍROW.N+PO)-HIDJÍWRDÍ.N* 1> 

430  NEXTN 
440  GOTO790 

450  R0U=INT<RNDC 1 )*13)+1 
4£0  P-LEN(WRDÍ) 

470  FI-15-P 

480  PO-IMT CRHD< 1 )fPl ) 

490  C2-F0+P 
500  R2*R0W 
510  F0RN-FT01STEF-1 
520  CU^CU+1 

530  PUZí CROWj  H+P0>-MIDTCWRDí / CU.  1) 

540  NEXTN 
330  CU=0 
3£0  GOTO790 

370  C0L*INTtRND<l)Hll3)  +  l 
380  P^LENÍWRDI) 

390  P\*IZ-P 


603  PO*INTCRNDC 1)#P1 ) 

610  R2-PO+P 
620  C2-C0L 
630  FORMsPTD 1 STEP- 1 
640  CU-CU+1 

£50  PUZiíN+PO.COD^MIDÍÍWRBí,  CU,  1) 
660  HEXTN 
670  CU-0 
6S0  GOTO790 

690  COL- I NT CRNDC 1 )*15)+1 
700  P*LEN<WRDÍ) 

710  PI-I3-P 

720  PQ*1NT(RND<1)*P1> 

730  R2=F0tl 
740  C2-CDL 
750  F0RN-1T0P 

760  PUZÍÍN+F0,C0L)*MIDÍÍURDÍ,N,  1) 

770  HEXTN 

730  00T079O 

790  FORR-1T015 

300  F0RC1=1T015 

310  E-INTÍRNDÍ  1  >*26>+63 

320  IFPUZí  < R ,  C 1 3  =  " 11 THENPUZÍ  í R ,  C1  >CH 

RÍCE) 

330  NEXTC1 
340  NEXTR 
35G  G0T0950 

360  PRItlT"  [CLR3  ECRSRD3 " 

370  PRINTTAE<6)',[RED3RBCDEFGHIJKLMNO 
C ELU  ] " 

330  F0RR-1T015 

390  PRINT" [RED] " :PRINTTflB<2)RJ TREÍS) 

" E ELU ] " j 

900  FQRC1“1 T015 

910  PRINTPUZf CRiCl >i 

920  NEXTC1 

930  NEXTR 

940  RETURN 

950  GO3UEG60 

960  PRINT" ECRSRDD" 

970  PRINTTAEÍ 1 ) 11  COLUMNA?  [SPC  3  (A-Q) • " 


1100  PR I NTTAE  í I ) " ENC  SPC 3 " 1 CHR* ( C2+S4 

)  i  R2 

1110  FORN-1TO2000 
1120  NEXTN 
1130  GO3UESS0 
1140  PRINT" [CRSRD] " 

1150  PRINTTAEÍ3) " CRVS0N3  CREB3PUL3RCSFC3 
UNRCSFC 3  TECLA [ RVSOFF 3 [ ELU ] " 

1160  GETRÍ  IFAi-" "THEN1 160 
1170  PRINT" [CLR3 " 

1130  G0TD250 

1190  PRINT" [CLR3 C2CRSRE3 " 

1200  DF-SI-FI 
1210  E3-INTÍDF/60; 

1220  MIN=IHT(£S/60) 

1230  SEC-ES-MIHK60 

1240  IFHF<RECTHENFLflG«l  REC»DF 

1250  FRINTTRBÍ 1 > "CORRECTO  II." 

1260  PRINTTAEÍ 1 > "TARDASTE " 

1270  PRINTTAEÍ  DMIN, "MINUT0SCSPC3Y" 

1230  PRIHTTRBÍÍ >SECJ "SEGUNDOS. C 3 CRSRD 3 


1290  IFFLAGOl GOTO  1310 

1300  PRINTTABÍ 1 ) "NUCVGC3FC 3  RECORD !  f  C2CRSRD3 


1310  FLAGEO 

1320  PRINTTABÍ3) " [RVS0N3 [RED3PULSAE3FC3 
UNA [ SPC  3  TECLAC  ELU 3 " 

1330  GETAi  IFA4-""G0T0133B 
1340  PRINT" CCLR3" 

1350  GOTO250 


930  FI-TI 

930  GETRÍ ’ IFAÍ-" "GOTO990 
1000  A-ASCÍ Aí ) 

1010  IFAí:£5ORñ>79GOTO390 

1020  A-fl-64 

1030  SI “TI 

1040  PRINTTABÍ  1 ) " " i 

1050  INPUT"FILRISFCK  1-13) " ,RTÍ 

1060  RT-VAL ÍRTÍ) 

1070  IFR2-RT  AND  A-C2  GOTO1190 
1030  PRINT" ECLR3  E2CRSRD3 " 

1090  PR INTTRBÍ 1 > "TEt SPC 3 EQU I VOCflSTE 
ESTAEfl" 


10  REM  ****** 

20  REM  *  * 

30  REM  *  COPA  DE  LETRAS  + 

40  REM  *  * 

50  REM  i***************** 

60  P0KE5323 1,140 
70  PRINT" CCLR3 [2CRSRD3 " 

GÜ  FRINTTAE í 10) " CGRN3C RV30N 3 SOPA í SPC 3 
DECSPC3LETRA3C  ELU3  C2CRSRD3 " 

30  PRINTTAEÍ S > "TE [ SPC 3 MOSTRARE E SPC 3U 
NA [SPC 3 PALABRA. " 

1Ü0  PR I NTTAE ÍS)" INTENTA C SPC] ENCONTRA 


Los  mejores  programas 
para  Commodore  64 


•  SOCCER  II  (MUNDIAL  DE  FUTBOL) 

•  DECATHLON  (OLIMPIADAS) 

•  NIGHT  MISSION 

•  HOBBIT 

•  FORT  APOCALYSE 

•  POLE  POSITION 

•  Y  MUCHOS  MAS... 


TAMBIEN  VENDEMOS  POR  CORREO 


EMBAJADORES,  90  -  28012  MADRID  -  TEL.  227  09  80 
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770  NEXTN 

780  GOTO790 

750  F0RR-1T015 

300  F0RC1-1TQ15 

310  B-IMTíRNDCl >*26)+65 

330  IFPUZIí R , C1 "THEMPUZÍCRí Cí )=CH 

Rf  CB) 

330  ND1TC1 
340  NEHTR 
250  G OTOS 50 

360  PRINT" CCLR] CCRSRD] " 

370  PRINTTRB C 1 2) " I RED  J  AB  CDEFGH I JKLMN 
OtELLI] " 

280  FGRR=1T015 

890  PRINT" [RED]"  ■ PRINTTAE<S)R, TAE! 12 
>"CBLU]"; 

900  F0RC1-1T015 

910  FRINTPUZICR.C1  j 

920  NEXTC1 

330  NEHTR 

940  RETURN 

950  GGSUE360 

960  PRINT" CCRSRB] " 

970  PR I  NTTAB (3 ) "  COLUMNA  C  3FC]  7t  SPC  K  Fl 


ilO  PRINTTAEÍ 8) "CNC3PCIELCSPC] PUZZLE 
[ SPC 1 TAN [ SPC 1 RAPIDO" 

120  FR I NTTAB  í  S  > 11  COMO  C  SPC  1  PUEDAS .  " 

1 30  FR IHTTflB C 8 > " I NT ROBU CE í SFCILflC SPC 1 
FILfU3PC3VCSPC]Lfi" 

140  PR INTTftEí 8) "COLUMNA! SPC 3DECSFC1L 
fltSFCIFRIMERfl" 

143  PRIHTTRBíS) "LETRflCSPC JDEESPCILflCSPCI 
PALABRA. C2CRSRDI " 

ISO  PR I NTTflBÍ 1 Q >" [RVSON] I REDI PULSA CSFC] 
UNA  C  SPC I TECLA [ BLU ] " 

160  GETAJ  J  IFfli-"  "THEN160 
170  FRINT" [CLR] " 

180  DIMPU2ÍÍ15, 13Í 
190  REC-999399999 
200  DATA  ORDENADOR , TECLADO 
203  DATA  TELEVISION. MENOR  IR 
210  DATA  CONMODORE, PROGRAMA 
213  DATA  FUNCION. REVISTA 
220  DATA  MONITOR. VARIABLE 
225  DATA  DISCO, IMPRESORA 
230  LATA  GRAFICO, PANTALLA 
233  DATA  CDNECTOR.CHIP 
240  DATA  ENCHUFE . DIMENSION, # 

250  C^INTÍRNDÍ 1 )#4>+l 
260  F0RR-1T0I5 
270  F0RC1=1T013 
200  PUZfíR. C1 )»" " 

230  HEKTC1 
300  NEXTR 

310  RERDWRDi  IFWRDí=*"#"THEN  END 
32G  PRINT" I CLR II SPC3" 

330  PRIMTWRD# 

340  ON  C  GOTO  350,450,570,690 
350  ROW=INT (RND(1)*I5)+1 
360  P-LENCWRDÍ) 

370  Pl=13-F 

3S0  FO-IMT (RMD! 1 )4PI ) : PO-3 
338  C2=P0+1 
40O  R2-R0W 

410  F0RN-1T0LENCWRD$> 

420  PUZí!ROW,N+PO)=MID$(URBÍ,N,  1) 

430  NEXTN 
440  GOTO790 

450  R0U»INTÍRNDÍ1)*15>+1 
460  P=LEN(WRDf ) 

470  P1-13-P 
4 SO  PG-INT CRNDC 1 >+Pl ) 

490  C2=PG+P 
500  R2-R0W 
310  F0RN-FT013TEF- 1 
520  CU-CU+t 

S30  FU2Í  í  ROM  í  N+PO-)  »M  I D  #  í  W  RD#  j  CU  j  1 ) 

540  NEXTN 
550  CU=0 
560  G0T0730 

570  C0L=INTíRNL<l)*15)+l 
580  P-LENÍWRDí) 

590  P1-15-F 

600  P0-INTÍRNDC1)*F1> 

610  R2-P0+F 

£20  C2-C0L 

530  F0RN-PT01STEP- 1 

640  CU^OJ+1  „ 

650  F'UZf  (N+FG, COLi-MIDÍ CURLÍ, CU, 1  * 

660  NEXTN 
670  CU-0 
6S0  GOTO790 

690  C0L»INT(RMDÍÍ>*13>+1 
700  P-LENÍWRDÍ > 

710  P1-13-P 

720  P0=INT<RNDÍ1)*P1) 

730  R2-F0+1 
740  C2-C0L 
750  F0RN-1T0F 

760  PUZJ  <  N+PO ,  COL  )  -M I  D-í  ( URDÍ ,  N ,  1 ) 


980  FI-TI 

996  GETAi : IFA4-" "GOTO990 
1000  A^ASCÍAÍ) 

1010  IFAC65ORA379GOTO990 
1020  A-fl-64 
1030  SI -TI 
1040  PRINTTABío/"", 

1050  INFUT"FILflISPC] í 1-15) "1RTÍ 
1050  RT-VALíRTí) 

1070  IFR2-RT  AND  A-C2  GOTO  11 90 
1000  PRINT" t CLR H2CR3RDI" 

1 090  PR I NTTAB <8> "TE [SPC I EQU I V0CA3TE 


1100  PRINTTflBÍS)"ESTflBfl[SPC]ENC23FC] 

",CHRfíC2+64>j "-"1R2 

1110  FORU=1TO200O 

1120  NEXTN 

1130  GDSUB360 

1140  PRINT"  [CRSRDr 

1150  PR I NTTRE 00)" [RVSON] [  RED ] PULSA [ SPC I 
UNA C SPC 1  TECLA C  RVSQFF ] [ BLU 1 " 

1160  SETA* ■ IFRÍ-" "THEN1 160 
1170  PRINT "[CLR]" 

1130  G0TD230 

1190  PRINT" C CLR] C2CRSRDI " 

1200  DF-SI-FI 
1210  ÉS-INTÍDF/sa) 

1220  MIN-INT ÍES/60 5 
1230  3ECs£3-MIN*68 
1 240  I FDF 3RECTHENFLAG- 1 ■ REC-DF 
1250  PR í NTTAB (8) "CORRECTO ! . " 

1260  PRINTTRB ‘^Sj " TARDASTE C SPC ] EXACTA 
MENTE" 

1270  F'RINTTABíSíMIN,  "MIHUTGSCSPCIV" 

1230  PR I NTT AB ( 8 ) SEC 1 "SEGUNDOS. [3CRSRD] 


1290  IFFLAGO1GOTG1310 

1300  PR I NTTflB ÍS>" NUEVO! SPC] RECORD! I ! 

[2CRSRDI " 

1310  FLAG=0 

1 220  PR I NTTAB < 10/ " [ RVSON 3  C RED  I PULSA C 3 PC I 
UNA C SPC] TECLA [BLU]"  , . 

1330  GETñi  lFAf «"» GOTO  1330  ^  fri 

134Ü  PRINT"  [CLRI "  \T'' 

1350  GGTO250  T  fV 
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El  Misterio 
de  los 
Pokes  (VIII) 


Por  Diego  ROMERO 


n  primer  lugar  debemos  pedir 

mes 


Después  de  deciros  que  hemos 
preparado  una  labia  con  las  direcciones 
de  llamadas  de  las  distimas  rutinas  del 
kernal  que  se  deben  modificar  para 
adaptar  los  programas  del  VIC-20  al  C- 
64  y  viceversa.  Esta  tabla  puede  resulta¬ 


ros  útil  para  descifrar  algo  del  modo  en 
que  opera  vuestro  ordenador.  En  la 
tabla  mencionamos  la  dirección  de  lla¬ 
mada  del  C-64,  la  del  VIC-20  y  la  des¬ 
cripción  de  su  función. 

También  puede  servir  de  ayuda  para 
la  conversión  de  programas  el  decir  que 
EN  GENERAL  las  rutinas  del  sistema 
operativo  inferiores  a  SH000,  para  cal¬ 
cular  la  dirección  del  VIC  conociendo 
la  del  C-64  debemos  sumarle  8192 
($2000),  y  a  partir  de  la  SE000  hasta 
SE 500  debe  restarse  3  para  conseguir  la 
dirección  que  correspondería  a  VIC- 20. 
Esta  regla  es  general  y  podemos  encon¬ 
trar  rutinas  que  no  cumplan  esta  regla. 

Espero  que  las  tablas  y  normas  sír¬ 
van  para  poder  adaptar  los  programas 
de  código  máquina  de  uno  a  otro  orde¬ 
nador,  teniendo  en  cuenta  las  limita¬ 
ciones  de  memoria,  pantalla  y  gráficos 
del  VIC  frente  a  su  hermano  mayor  el 
64.  También  creo  que  será  útil  el  pro¬ 
grama  de  ayuda  gráfica  como  ya  dije  en 
el  número  anterior. 


1^  disculpas  por  el  despiste  del 
i-^pasado,  en  el  que  por  error  se 
omitieron  ios  listados  del  programa  de 
ayuda  gráfica  del  artículo  titulado 
“Pokes  sin  dolor**. 


Descripción 


£45  F 
L500 

13** 

E5*A 

£544 

E5CA 

E632 

ESE  A 

E9FF 

EA3I 

i.im 

EÜ0C 

ED4# 

EDB9 

EDC'7 

EDEF 

EDFE 

EEO 

EEBB 

J  *14 

\M*> 

HMD 

F1S7 

F1CA 

F1ME 

F25* 

Fin 

vm 

F31F 

F32F 

F34A 

F49E 

F5AF 

F5IU 

F5DD 

mv 

FÓ9B 
FbDD 
FÍE 4 
F72t 
F76A 
F7EA 
1841 

m* 

FCCA 
FCE2 
i' 0*2 
FDU 
FEI7 
FE  25 
FE34 
FE43 
FEC2 
FFÍ1 


¥429 

ES*# 

E 5*5 

E5*A 

E55F 

ESES 

E64F 

E975 

LASO 

EABF 

EEI4 

EEI7 

EEE4 

EEC* 

EECE 

£EFó 

EF« 

EF19 

EFA3 

FIE  O 

F14F 

F174 

F2ÍE 

E27A 

F2C7 

vm 

I34A 

F3CF 

F3DF 

F3EF 

F4IA 

F542 

F647 

F66A 

F675 

H28 

F7J4 

F7W 

F767 

F7AF 

F7E7 

F8*7 

F8CI 

FSEA 

bim 

FD22 

FD3E 

F1340 

FE57 

FE73 

FE82 

FEA 9 

FF5C 

FF8A 


Mensajes  del  sistema  operativo. 

Devuelve  Ut  dirección  de  la  CÍA  o  VIA. 
Devuelve  el  formato  de  pantalla. 

Fija  o  lee  La  posición  del  cursor. 

Borra  la  pantalla. 

Espera  una  entrada  dd  teclado. 

Lee  imi  dato  de  la  pantalla. 

Desplaza  b  pantalla  (Scroll). 

Borra  una  linea  de  pantalla. 

Rutina  de  interrupción  (IRQ).  „ 

Envía  1'A.LK  a  un  periférico. 

Enda  LISTEN. 

Envía  un  byte  al  bus  serte. 

Envía  dirección  secundaria  para  LISTEN, 
Envía  dirección  w.  para  TALK. 

Envía  UNTALE. 

Envía  UN  LISTEN. 

Lee  un  dato  dd  hus  «crie. 

Salida  de  RS232. 

Salida  al  bufTer  de  RS  232. 

Entrada  del  RS  212. 

Mensajes  de  error  del  sistema. 

BAS1N  lee  un  dalo  (getL 
BSOLIT  escribe  un  carácter. 

CHKIN  fija  dispositivo  de  entrada. 
CHKOLT  ídem  de  salida. 

GLOSE. 

SETNAM  ája  nombre  de  OREN. 
SETLFS  Rja  parámetros  de  OPE.N, 
t'LALL  cierra  todos  los  canales. 

OPEN 

LOAD 

Escribe  '*SEARCHING  FOR.,.". 

Escribe  LOADING  o  VERIFVING. 
SAVE. 

Escribe  “SAVLNG.. 

UDTIM  actualiza  el  reloj 
Lee  hora. 

Escribe  hora. 

Lee  la  cabecera  de  un  programa  de  cinta,. 
Escribe  la  cabecera  en  cinta. 

Comprueba  v\  nombre. 

Ize  de  cinta. 

Escribe  a  cinta. 

Para  el  motor  del  cassette. 

RESET  dd  ordenador. 

C  omprueba  si  tiene  cartucho  ROM 
Secuencia  de  a  u!  oslan  para  ROM, 

C  omprueba  d  estado. 

Fija  o  lee  el  límite  superior  del  RAM. 

Fija  o  lee  el  limite  inferior  del  RAM. 
Rutina  NML 

Constantes  de  tiempo  para  RS  212. 
r  abla  de  saltos  de  las  rutinas  KenuL 


|  |  ELECTRO AFI£ION 


Tiene  el  gusto  de  anunciarles 
la  apertura  de  un  nuevo  local 
sito  en  ¡a  La  Gran  Vía 
de  las  Corts  Catalans,  559 f 
08011  Barcelona, 
donde  también  les  atenderemos 
en  ¡a  venta  de  equipos 
de  radioaficionado 
y  muy  especialmente 
en  la  elección 
de  su  microordenador . 
Dispondremos  de  las  mejores 
marcas  y  de  ¡as  últimas 
novedades , 


Commodore  World  Diciembre  1984/63 


r 


Listados  del  articulo  POKE  SIN  DOLOR  del  ne  anterior 


vie-20 

lü 

REM 

*§*+#*éi  +  ii**ü 

15 

REM 

HVUDm  HL  BlfcUTü 

2U 

REM 

ju 

ftfcM 

iit  GkmKICüS 

4tí 

RKM 

4b 

REH 

VERSION  V I C 

50 

REH 

55 

REM 

POR 

56 

REM 

60 

REH 

lRhIG  HüUhRTH 

90 

REH 

95 

REM 

9  c- 

kEH 

miciHLizri 

97 

REH 

vRRIRLLES 

98 

REI1 

99 

REN 

i  tí  i  b  b  -  7$  Utí  L  b-  cí4  y  tí  1-piJ  roí  tí  ? 

if>5  SS-4Q36 :  C0-37S8S 
10?  CD-C3-SS 

1 1 Q  SC -36379  ■  JV-37  i  ^7  JF  - ^ ■  í 

TL-5S+22  BL-Sb+505  PQ*SS+¿5¿ ; PC- 
F  Ü  *  CD 

1JÜ  DIMJDC13> 

1 4ü  FOR I - 1T0 13  =  RERDJOC I >  NEXT 
i 50  DmTh¿ i  ^ -23 > -i >  t ¿2 *-22*  *  t  *  *l>-2l* 

23 

1 5b  bh  i-f  HM  ■  1  y  >  F  ÚK  l  - 1  Tu 22  SF'i— 3P¿ 1 
D ira í  32 r  tOT  SM-SM+O 6 > 

2üü  REN 

2tí  l  REH  ***4*** 

2Ú2  REH  TITULOS 
ílüí  REM 
¿04  REM 

205  PRINTSF*  „  _ 

210  PRIMT " C HOM ] I2SPC 3RVUDRCSPC ] hL C SPC ] 
1IBUJÚC4SPCHH0MI "  ■  FÜRI =1TÜ100U  ■  NEXT 

¿12  PklNl  "C HUI-I  J  C 4SPC 1  DE t SFC1GRHF I COS 
C3SPCHH0M]"  '  FORT-  1T0 1000  NEXT 
215  PR I N  T  "  C  HÜH  I  C23PC3PORCSPC  3  CRN  I 0  [  ¿Pl  3 
HüWHftT C3SPC 3 [ HOM 3 "  FORT* 1  Tú  1 000 ■ NEXT 

220  PR 1 1 IT " C HOM 3  C SPC3 C RVSQH3PERVSGFF 3 
RNTHLL8 C SPC 30C SPC 3  I RVSÜN3 1 1 RVSOFF 3MP 
RESOftAtHOl-U" 

¿M  h**" 11  ■  &ETh4  IFA-Í-" "THEN2 00 
240  IFñJ-" I "THEN1000 
245  IFRS="P"THEH3üO 
250  G0TÚ230 

300  REM 

301  REH  *********** 

302  REM  ShLIDh  m 

303  REM  FñHTflLLfl 

304  REM  *********** 

365  REM  _ 

¿1$  CN-PEEKtPU-f  CÜ*PEEk<,PC>MNLH5 

320  Púl  fcPi.  -  3  POKEPO-42 

325  PRIMTSP*  . 

330  PR  í  NTCHRÍ  í  19 )  -  PO  -  CN  -  PC  -  CO  i  CHRí i  1 

9) 

340  FDKEJK, 127  J8*ÍPEEKÍ  JV-»AND20>OR< 
PEEK  <  JV+ 1 5 > HNL 128) : POKEJK -  255 
342  JS=ABS(JS-1 003/4-7 
345  TP-PO+JOÍJS) 

350  IFTP<TLORTP>fcLúRJ¿*?  THEN340 
3éó  PÜkEPC,CÜ : PÜKEPOj CM 
370  PO-TF : PC-PC+JOi JS) 

3S0  COT031C 

1000  REM 

1001  REM  ************ 

1002  REM  ¿HL 1 BN  H 

1003  REM  IMPRESORA 


1004  REM  ************ 

1005  REM 
1010  PRIHTSP* 

1020  ÜPEH4 -  4  CHB4  . 

1030  PRIHTCHRS<  16  >  "24HVUDACSPI.  JrtLIbH. J 
DIBUJO! ¿PC] DEC SPC] GRAFICOS"  .r_r., 

1 040  PR  1 1  ITGHRÍ  í  16)  "31  POR  I  SPCIcRft  IüIbPC] 
HOWñRT " 

1050  F'RINT  PRIHT  , 

10¿0  PRIHT "COLOR C SPC I DEL  C SPC I BORDE E bPC ] 
V  [  SPC  ]  DE  C  SFC  3  Lñ  C  SPC  JFFiNTALLñ  " -  PEEK< 

SO 

lOtíO  PRIHT 

1030  PRIHT" I4SK IPhNTHLLM" ■ 

1100  PRI NTCHRÍ < 16) "200FF3ET" i 

1110  PR II  iTCHRí  C 1 6  > " 32C0D 1 00  C SPCIlhR m 

CTER",  „ 

1120  PRIHTCHRíl  1S)  "b3CUU.tR  - 

1 1 30  PR I NTCHR* í 1  ó) "66C0B 1 00 C SPC ] COLO 

R" 

1140  PR-TL  .  ,  _ 

1 150  CN-PEEK<PR> :  CO“PEEK  <  Pft+tD  .*  hHD  1 5 

1 1 53  PUKÉPR+C  U  .■  O  PUK EPR  ■  42 
1155  I F ÜN*32QRCI  J-SSTHEI  ü  205 
UCS  PRI NTCHRÍ <  1¿> "05" - FRj 
1 1 70  PR INTC HRi í 1¿ ) "21 " - PR-SS - 
1  ISO  PRINTCHRíab)’* 57"  -OH 
USO  PRI  NTCHRÍ  <  1  ¿  > "  53  "  -  PR  +CD  - 
1200  PR I NTCHRÍ  í 1 S ) " 70 " ■ CO 
1 205  POKEPft+CD - CO  PüKEPR - CN 
1210  PR»PR+1 
1220  IFPR>üLTHENly33 
1230  üOTOl 150 
1939  FRIHTtM  ■ CL03E4 


C-64 


HVUDm  hL  DIBUJO  DE  GRAFICO: 


VERSION  C-64 


POR  CRN 1 0  HÜWmRI 


10  REM  ******* *************** ******* 
** 

20  REM  * 

* 

3w  HÉf-l 

* 

40  REM 
* 

¿O  REH 

* 

70  REM 

* 

75  REM 

* 

70  REH 

* 

S0  REM 

** 

30  REM 

95  REH  ******************** 

96  REM  INICIAL  IZA  VARIABLES 
37  REM  ******************** 

33  REM  _  .  ,T  .. 

1 00  3S=  1 024  :  CS-55c.'4b  :  uD-Lb-b-s 
110  B 0*53280  SC =53 281  JV»bbS2ifl 
12Ó  TL*  1 064  ■  EL-2023  ■  F'Q— 00  i  000  PC  FO* 
CD 

130  DIMJOÍ10) 

140  FORI - ÍTÜIO  REHD JÜC I ) ■ NEXT  _ 

150  DATA-40-40- --1.-41,39. - 

155  SFí-CHRí C 19) :FORI=1TO40:SP*»¿P*+ 
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CHRí<32¿  ■  NEXT ;SPS=SPÍ+CHR4i  19j 
¿00  REM 

¿tu  RE II  ******* 

2W¿  REO  TITULOS 

203  REI)  ****** * 

204  ROI 

203  PRINTSPJ 

210  PR IN T "  £  HÜH  3  £  2SF1  C  3  A  VLIBft  £  SP u  3  HL  £  i F  C  3 
Ii  I  BU  JO  C  SPC  ]  BE  £  SPC 3  GfthF  ICGSCSSPC3  CH0M3 

"  fort- ito  looo  i  je;  ;t 

213  FRINT " IHOH 3  £ 10SFC 3 POR  £  SPC3CKH I O E  SPC J 
HÜWRRTE1 ISPCJEHÜMJ"  FÜR1=1TÜ10ÓÓ  NEX 
T 

¿20  FRINT"  CHQMJEL I  JA  E  SPC  3  SAL  I DA : £  SPC  3 

[RVSON 3  P  £  RVSGFF  3  ANT fiLLRt SPC  3 Ü  £  SPC 3  £  RVSON  3 

I  £  R VSOFF  J  M PR E SOR A  £  HQM  3 11 

230  GETA*  :  IFft#-"  “THEH230 

240  I FA4 - " I " THEN 1 000 

243  IFhí-"P"  THENSyü 

230  OOTO230 

jt<t>  REM 

¿01  REM  ************ ***** 

302  REM  SALIDO  A  PANTALLA 

303  REA  ***************** 

¿04  REM 

3£0  CU-FEEKCPÜ  :  :C0*PEEtí<PC>AND15 
320  POKEPCí 1 ■ PükEPÚ, 42 
325  PRINTSPi 

330  PRINTCHRÍÍ 19> 1P0; PG-SS,  CN, PC, CO, 
CHRi£19> 

340  JS* 1 5- 1 PEEB '  J V >hHD 1 5  < 

¿45  TP=PÚ+ Jüt T¿  > 

350  I F TP< TL ORT F 3  E LOR J S -QTHEW3 40 
360  POKEPC - CO ■ POPERO , CU 
37o  PO-TP  PC-PC+JO<JS) 

3 SO  GOTQ310 
1000  REM 


loOl  REM  ****************** 

1B02  REM  SALIDA  A  IMPRESORA 
1 00¿  REM  ****************** 

1004  REM 
101O  PRINTSP* 

1020  OREN 4 , 4  CI1D4 

1 030  PR  1 1  íTCNPí  1 6> "  26AVUDA  E  SPC  JAL  £  SPC  I 
D I  BU  JO  £  SPC  1 1'E  £  SPC  J  ORAF I C  O  i 11 
1 640  PR  1NTCHR*  i  1  ó  > 11 3 1  POR  £  SPC  JCKHlGE  SPC  I 
HGWART" 

1050  PRIUT  FRINT 

1 060  PR INT" COLORE SPC I  BEL  £  SPC I  BORDE ■ " 
,PEEK<BOfiND13 

1070  PRI  NT  "L ÚLuPE SPC  JDECSPC3LAC5PC3F 
At  JTALLR '  "  ;  PEEKC5C  > AND 1 5 
1030  FRINT 

1 090  PR I  NT " £4 SPC ] PUNTAL  LA “ , 

1100  PRINTCHR*t  16>''20GFFSET", 

1110  PRINTCHRiC 16 >"32000 IGDCSPCJCARA 
CTER" 1 

1 12tí  PRINTCHRiClo  "54C0L0R" , 

1130  PRINTCHK:*!  16  >  "SSCütll&Ut  SPC JCÜLÜ 
R" 

1140  FR-TL 

1150  CN-PEEKÍPR) -C0-PEEKÍPR+CD)fiND15 

1 1 53  POKEPR+C B, 1  POKER F • 42 
1155  I F C H* ■  í 20 RC N =S ó THEH 1 2 05 
1160  PRIHTCHR4  d 6-' "05",  FR, 

1170  F’RlNTCHRJt  16 >"21 "  -PR-SS, 

1 1S0  PRINTCHR4C  16j“ 37" .UT, 

1 IStf  PP1NTCHR*! 16  ¿"5¿" ■ PP+L0, 

1 20O  PR INTCHRÍ < 1 6  > " 70 " , CO 

1203  FOKEFR+CD, CO  FOKEF'R , CH 

1210  Pk-PRtJ 

1220  IFPR3BLTHEN1999 

1230  COTO  11 5ú 

1933  PR1NTW4  GLOSE 4 


(l'ifñe  de  pág.  51 .) 

E SI  I  IFTIS  3  £  SPC I CSH I FTL 3  £  SH I  PTfi 3 L 3PCJC COMMG 3 
EELK3E2CÜNM+]'’, 

¿27  FR INI" £ RVSOI J 3 rCOMI  1 i 3 £ VEL ] C COMMMI 
£  7 SPCJ C  COMMG ] £  SPC ] ECOMMM ] C6SPC ] C  SPC ] 

C  COMMG  3  £  EL£ '  ] C  2C0MM+ ] " J 

228  PRIHT " £  RVSOM] £  CÜMM * 3  £  VEL ] £  CÜMMM3 

£  7SPC  JE COMMG ] f  SPC ] ECOHHM J £  7 SPC 3  £ COMMG 3 

EBUÍjE£COMM*]'*í 

223  FRINT " £  RVSON 3  £  CRN ] £2 1 C0HMU 3 " 
jOO  a— 0  - N-0  R-dl i ü  R 1  — R* ¿07 20  C0SUB1 
500 

400  I  FFEEk  ■  13D-3STHEI 1G0SUB 1 OOO  Z— 2 
2  GOSUE1500 

410  I  FF'EEKC  1 37)  -6STHEI JGÜ3UD 1 OOÚ  2-22 
G0SUD1500 

420  I FrCEK  < 1 97  > - 1 7THEMOOSUE1 080 :  Z-  - 1 
■ G0SUL1500 

430  I FFEEK t 13?>-18THEMGÜ3UB1000 ■ Z-l ■ 

GüSU BISCO 

520  REABV : A-rt*V  A1-81Ü0+X  A2-A1 *3072 
O 

530  I F V-3 T HEH3360 

5S0  IFFEEKCHl 1-23THENP0KEA1 , 30  POLEA 
2,3- GOTO 3000 

530  IFPEEKÍfil 3-OTHENPGKEAl , 30  P0KER2 

,5  G0SUB2ÜG0 ■ GÜT0400 

uÜU  FüKEhl ,  30  F'ükEfit,  5 

610  FÜEI-1TO10O • HENT ■ POLEA 1,32  Ú0T04 

00 

1 000  POKER ,  ü  ■  R1  -ft+307 20  ■  POKER  1 ,  &  RET 
URIJ 

1500  R-RrZN-N+l 


1510  I FFEEK £ R 3 -23ÜGRPEEL ( R > -2Ú4ÜRFEE 
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ELECTRONICA 
fSANDOVALsA 

DISTRIBUIDORES  DE 

ORIC-1 

CASIO  FP200 
ROCKWELL-AIM-65 
VIDEO  GENIE-EG-2000 
CASIO  FX-9000P 
SINCLAIR  SPECTRUM 
OSBORNE 1 
DRAGON-32 
NEW  BRAIN 
EPSON  HX-20 

C/SANDOVAL,  3.  4.  6  MADRID  28010 
TELEFONOS  445  18  33/18  70 
TELEX  47784  SAVL-E 


casa  de 
software  sa. 


casa  de  software,  s.a. 

e/  aragón,  272,  8e,  6.a 
tel.  215  69  52 
08007  barcelona 


•  Ordenadores  personales  Hard  y  Soft. 
•  Cursos  de  Basic. 

Oficinas  RENOVACION  EN  MARCHA.  SA 

e.  Espronteda  34  -  2«  ir>i  WAOfliO-3 
Telefono  441  24  78 
T«nda  REM  SHOP  1 
C  Galilea  4  MADRID- 15 
Telefono  (91)  445  00 


AVI).  CESAR  AUGUSTO,  72 
Tels.:  23  56  82  v  22  65  44 
50003— ZARAGOZA 


CENTRO  DE 
INFORMATICA 

Las  Rozas  -  Majadahonda 
EMPEZAMOS 
Cursillos  en  BASIC 
cada  1  5  días 

Directamente  en  ordenadores 
ViC-20.  COMMODORE  64 
SPECTR  AVIDEO 

Teléfono:  637  31  51 


FERPE-mOPiT  /.n 


C/  Tusset,  8  -  Entresuelo  2.a 
Tel..  218  02  93 
08006  BARCELONA 


•  ORDENADORES  PERSONALES 

•  ACCESORIOS  INFORMATICA 

•  COMPONENTES 
ELECTRONICOS 

•  TELECOMUNICACIONES 

Paseo  de  Gracia  126-130 
Tel.  237 11  82*.  08008  BARCELONA 


M^ÍSrRDEN  „ 

-  ORDENADORÉS  PERSONALES  - 


•  SINCLAIR  SPECTRUM  Y  PLUS 

•  COMMODORE  64 

•  ATAR!  800  XL 

•  GRIC  ATMOS 

•  DRAGON  32  >  64 


•  PERIFERICOS  Y  ACCESORIOS 

•  SOFTWARE  PARA  TODAS  LAS 
MARCAS 

•  CURSOS  DE  BASIC  PARA 
PRINCIPIANTES  (PRACTICAS 
CON  ORDENADOR) 

•  GRAN  SURTIDO  EN  LIBROS 
Y  REVISTAS 


Francisco  S  Hiela,  19 
Teléfono  401  07  27.  2HQ2S  MADRID 


Todos  los  meses 
publicaremos 
programas  para  los 
Commodore. 
¡¡Suscríbete!! 

Tel.  (91)  231  23  88/95 


COMPUTERWORLD 

es  miembro  de  CW  Communications/ loe. ,  el 
grupo  editorial  más  grande  y  de  publica¬ 
ciones  relacionadas  con  los  ordenadores  en 
lü  países,  dando  como  resultado  la  canti¬ 
dad  de  nueve  millones  de  lectores  que  leen 
una  o  más  de  nuestras  publicaciones, 

¡¡¡Suscríbete!!! 

Tel,  m>  231  23  88/95 


Este  módulo 
de  4  cm, 
vale  55.000  Ptas. 
por  1 1  inserciones. 
Llamarnos  al  23!  23  88/95 


ORDENADORES 

PERSOSALES/PROFESIONALES 

RED  DE  ORDENADORES 
PARA  COLEGIOS. 


E  quipos/ S  erviáos 
Centro  de  formación 


General  Ricardos,  15. 

Tel.  (974)  V  1439  B  ARRASTRO  (Huescaj 
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Servicio  gratuito  para  nuestros  lectores  particulares. 

De  no  especificar  duración,  los  anuncios  serán  publicados  durante  1  mes. 

Debido  a  ciertos  abusos  que  nos  han  sido  comunicados,  los  anuncios  gratuitos  de  Market  duh 
solamente  serán  publicados  si  vienen  con  nombre,  apellidos  y  dirección  completa.  No  se  admitirán  apartados  postales. 
Lamentamos  que  todos  tengan  que  sufrir  esta  medida  por  culpa  de  algunos  ’7lfff0s’* 

Adicional  mente  es  recomendable  que  enviéis  el  número  de  teléfono  por  si  hubiese  alguna  pega, 
si  no  deseáis  que  lo  publiquemos  podéis  decirlo  en  la  carta. 


MERCADJLLO  / 

*  Imcítiinibiu  programas  de  cualquier  1 1 p< »  para 
CBM-64  lamo  en  disco  anuo  en  cassette  Desearía 
contactar  también  con  algún  poseedor  de  compilador 
Pascal  O  con  personas  interesadas  en  conseguirlo 
Luis  París  García.  Ora.  Vie.  [  19-  L 2  L _  y  2.*  Manresa.  - 
Barcelona  Te  leí  873082»  (Ref  M-1 39). 

*  Deseo  comprar  la  unidad  disco  VC-IÍ41,  asi  como 
Jos  di«k«lic$  que  me  pudieran  proporcionar  quien 
vendiese  este  periférico*  pero  eso  si,  en  perfectas  cun- 

I  iliciones  de  funcionamiento.  Las  ofertas  me  las  pueden 
enviat  a  la  siguiente  dirección,  José  M-1  Lozano 
Gallardo.  Avda  de  los  Deportes.  42,  9L'  B  Móstoíes. 
Madrid  (Ref.  M-1 40). 

*  Vendo  VIC-20  *  introducción  al  lenguaje  de  pro¬ 
gramación  Basic  I  y  tí  con  cintas  +-  cartuchos  su  per 
Expande/  con  3K  f  Cariucho  ajedrez  "Sargón  Jí 
Ches*"  por  45.000 pesetas.  Llamar  carde.  Tdéf:  (967) 
298282.  Preguntar  por  Ernesto  (Ref.  X1-Í4Í). 

!  *  Vendo  VJt -20  comprado  cu  mayo  de  3983  con  las  4 
cimas  '  ampliación  por  25.000  péselas  Tdéf..  (93) 
8513636.  Preguntar  por  Ramón  (Ref.  M-142), 

*  Vendo  \  ÍC-20  nuevo  a  estrenar  a  buen  precio,  Lla¬ 
mar  ai  teléfono:  8995153.  Josep  M  *  Gtrboncll  Casa- 
novas.  C/Nov  48  S»  Rere  de  Riudcvilles.  Barcelona 
(Re/,  M-J4J) 

*  Vendo  programador  universal  de  memorias  EPROM 
para  VJC-20  v  CBM,  graba  Las  memorias  siguientes. 
25 16-27  Ib- 2  5  32' 2564- 27  64-2  7 128  y  futuras.  Félix  Por- 
tabella  Pudro.  C/Fom  de  Sta  Lucia,  [,  2V,  Manresa. 

(Ref  M-I44) 

*  Vendo  VIC-20  prácticamente  nuevo  ¡comprado  en 
enero  de  1984 1,  I  curso  de  Basic,  cartuchos  de  juegos, 
juegos  en  cassette,  libros  y  cassette  por  39.000  pías. 
Carlos  Guardia  C/Córccga,  i  10,  h  22  0802».  Teléf. 
2397711).  /Re/  M-1 45). 

*  Vendo  dos  libros  para  d  VIC-20:  G  A  MES  FGR 
YOl¡R  VIC-20,  123  páginas  ¡850}  EXPLORING 
ADVEN  H  RE  GAMÉS  UN  I  HE  VIC-20.  243  pági¬ 
nas  { 18 50),  Andrés  Portas  Aíenjai  Ríos  Rosas,  5. 

4  D  29007  Málaga  (Ref.  M  I 46) 

*  Vrndo  VIC-20  en  perfecto  esladn  *■  Datasctte  C2\ 

-  Manual  det  Usuario  ■+•  t  *  parte  dd  curso  introduc¬ 
ción  al  Basic  +  Cartucho  (Omcgu  Race)  +  cima  de 
i  ndescom  p  ( sera  m ble J  t  Joystidc  anatómico  de  espe c- 
tra video  4  12  revistas  t-  t-inias  con  juegos  >  progra¬ 
mas  de  utilidad  y  vírgenes,  todo  ello  por  3L9ÓO  p tas, 
Veo,  Javier.  Batanero  del  Amo,  C/ Re  pública  Argen¬ 
tina,  n,  62,  211  4  '  Cornelia  ( lio  c  dona),  releí. 
3763140  Pr elijo  93  iRef  X1-147). 

*  Intercambio  juegos  cu  cassette  para  C-64.  Icfel 
[931  ¿032 179,  líe  r  nal  Planas  Vivo,  Passdg  Mn.  Cinto 
Vcrdaguer  IDO  Ate.  Igualada  í  Bar  na)  /Re/,  M-1 48). 

,  *  Intercambio  programas  de  juego*  y  aplicaciones 
para  ORíC-í  Ruge;  Noguera  C/J  Jessarnins  10»  Igua 
luda  (BawdgiM) (Ref.  M  I 49). 

*  [Atención  distribuidores!  Deseo  recibir  informa¬ 
ción  o  catálogo  sobre  programas  de  juegos  en  cas¬ 
sette  A  ser  posible  de  venia  en  la  provincia  de  Barce¬ 
lona,  Bcrnal  Planas  Passcig  Vcrdaguef,  EME  Igua- 

l  bda  (Barcelona),  (Re).  M-I50) 

*  Vendo  un  prest  ira  nueva  para  C-64,  H)  tipos  de 

letra,  gráficos,  caracteres  programabas,  cic.  Luis 
Sánchez  Pérez  Apunado  nL  176  45081)  rolcdo 

I  cLél  22  i  494  i  Re/  Mi  51). 

*  Vendo  Commodore -64  en  pertecto  estado  ¡menos 
de  un  arto  de  uso  j  junto  con  un  gran  número  de  pro¬ 
gramas:  Interesado*  escribir  j  José  Francisco  Akiana 
Alunice,  Becthoven  6»  61’'  D  29004  Málaga  o  llamar  al 
317696  después  de  U>  10  {Re/.  M -152/ 

*  Ir  ge  vender  Commodore  64,  cassette,  guia  dd  pro¬ 
gramador,  juegos,  regalaría  re  víalas,  libros  Precio  ,i 


convenir,  también  vendo  por  separado.  Antonio 
Ccbrián  Martínez  C/ Francisco  Pj/arro.  73,  02DO4 
A I  bace  t  e  I  ekf  í  96  7 )  234 108  d  c  2  a  3 . 3( )  f  Re).  JW- 153) . 

*  Vendo  V ] C-20,  Cassette  C2N,  Cariucho  de  memo¬ 
ria  de  16K.  Super  Expander.  todo  cato  por  39.000 
pías*  Los  interesados  Llamar  al  (.93 J  699  58  8()  y  pre¬ 
guntar  por  José  Navas.  Juan  José  Navas  Fuentes. 
C/Juan  Ramón  Jiménez»  ntf  26,  6V  37  de  Rubí  (Barce¬ 
lona  l  (Ref  MM.U). 

*  Vendo  monitor  Commodore  de  Color»  nuevo  con 
garantía  60.000  pías.  Javier  laudes  C/Cn razón  de 
María,  55  Madrid  Tdéf  (91)  4167385  (Re/.  M-155) 

*  Intercambio  programas  para  el  Commodore  64  en 
cima  y  disco»  utilitarios  y  juegos.  José  M.  Suatez., 
Rué  j.  Jeanób  nv  6,  Soumggne.  Belgiuut  (Re/. 
M- 156) 

*  Vendo  Commodore  Peí  2001  con  ínter! ace  para 
RTTV-CW.  y  programas  por  50.000  pías.  Teléfono 
(942)  223985  de  Suman  Je  t  José  Manuel  (Ref.  XI- 157 ), 

*  Atención  Viciosos:  I  Vendo  Módulo  de  expan¬ 
sión  de  16  K  (para  VIC-20)  Intercambiaría  juegos  en 
cassette.  Llamar  o  escribir  a:  Daniel  Corriga.  C.N.  II. 
W  a  Idem- 7»  2-5 1  Sant  Just  Desve  rn  {Bar  ce  fonal ,  Tel  . 
(93]  3720243  (Re/.  M-I5S/ 

*  V  etidu  Gula  deí  Usuario  para  VJC-2Ü  ( 7.500  p tas  ) 
Guia  de  Referencia  dd  Programador  (  3 .500  pías. )  las 
dos  p artes  dd  Curso  Basic  i  L700  cada  uno;  incluye 
cintas)  y  un  cartucho  de  Ajedrez  por  2.000  pta^.  Todo 
por  sólo  7.000  pías.  Salvador  lúdela  EJo.  Gr.  Car¬ 
los  11 L  1 30  "  A ' '  Ba  rcelona  08034  -  Te  Id  (93)2041821 
(Ref.  M  I 59). 

*  Soy  usuario  de  un  C-64.  Descarta  intercambio  Je 
información  y  programas  de  [odo  upo  (en  cassette). 
Interesados  dirigirse  a:  VI  a  red  Planagumá»  Pgc  Min 
BorrdJ,  l-r  2J  Matar  ó  (Barcelona)  Tcl.  ¡93)798512? 

(Re/.  X1.I6Q}. 

*  Vendo  C-64  con  6  meses  de  uso,  cassette  Commo¬ 
dore,  algunos  juegos  y  el  libro  "60  programas  para 
C-64"  en  inglés.  Todo  por  76,000  pts.  Dirigirse  a 
Amonio  Tor ralba  C/Caventana  del  Toro,  46.  U  k 
Cádiz  Tdéf .  ¡956)  2?  88  70  (Re).  Xf-161). 

*  Intercambio  información  y  programas  de  todo 
tipo,  en  cassette,  para  C-64,  M.a  Pilar  Cabrerizo,  calle 
José  M  *  Duran.  5 L  35010  Las  Patn^  (Re/  M-162) 

*  Vendo  VIC-20,  intcrface  para  conectarlo  a  cual¬ 
quier  cassette, curso  de  introducción  al  Basic  \  1“  parte). 
Guia  dd  Usuario  VíC-20*  bastantes  programas  y 
muchas  revistas  COMMODORE,  todo  nuevo  y  en 
perfecto  estado  por  2IMHK)  pías.  jSi,  has  leído  bien!, 
(todo  junto  por  un  sólo  20,000  pías.!  Llamar  desde 
Us  3  h,  en  adelante  al  teléfono  (93)  334  22  37,  O 
escribir  a  José  Antonio  Garda  Cortés.  C7,  Pintor  M 
Castellón,  4,  3v-34  L’Hospitaiet  i  Barcelona)  (Re/. 
Xf-163 ). 

*  Vendo  C-64  +  cassette  ♦  30  programas  originales 
(no  son  copias)  por  el  precio  de  85,000  pías,  [  precio  en 
el  mercado,  d  doble].  Antonio  Garda  de  ia  Iglesia. 
O  J  u a  n  Mad ra  zo»  1 7-2  Leó  n ,  T  déf.  ¡987)  24  6?  30,  y 
2  joyslicks  (uno  profesional)»  Re/  Xf-164), 

*  Vendo  para  C-64  "Curso  de  Introducción  al 
BASIC  I",  y  cartucho  juego  * -RADAR  REI  RACE", 
o  mejor  aun  lo  cambiaría  por  JoysUck»  por  "Guia  de 
referencia  C-64"t  o  por  programas  de  gráficas  A.R 
Manuel  Morera  Antoflánzas,  C/Sama  Inés,  4-lw  C. 
50003  Zat agora.  (Re/.  M-I65). 

*  Tengo  un  C-64,  Estoy  interesado  en  d  cambio  de 
cintas  (a  ser  posible  de  utilidades,  gestión,  lenguajes], 
asi  como  en  las  ofertas  que  me  puedan  hacer  de  Uni¬ 
dad  de  Disco  o  impresora.  Mis  señas  son:  José  Marsa 
Mallo!.  C/Prats  >  Roque,  32  Enrió.  J 0  08027  Barce¬ 
lona  (Ref.  M-1 66). 

*  Vendo  VIC-20  con  ampliación  16  K  RAM.  cartu¬ 
cho  SUPERE X PAN DER  *  3  K,  cassette  C2N,  tole  de 
cintas  con  juegos  y  utilidades,  libros  >  manuales  en 
inglés,  colección  Club  Commodore.  revistas  inglesas  y 
españolas.  Todo  por  45,000.  Preguntar  por  Smdin  en 
d  teléfono  747  59  II  (mañana)  de  Madrid  (Ref. 
M-167/ 


*  Vendo  VIC-21)  con  Supere* pynder  3  K.  cassette, 
libros  >  cintas:  35,000  pías.  José  Luis  Manzano  Lina¬ 
res.  C/Maninez  Izquierdo,  72.  28O08  Madrid.  Teléf. 
(9 1)  246  99  47  (Re).  M-UH). 

*  Vendo  VIC-20  comprado  en  enero  de  este  año»  con 
ampliación  de  16  K  y  datassete,  adjunto  varios  pro¬ 
gramas  comerciales  y  libros,  además  dd  joysiicli  de 
Commodore.  Todo  por  29.000.  Llamar  al  teléfono 
3101  I?  (976),  Zaragoza  (Re/  XI- 1 69). 

*  Vendo  2  programas  en  cinta  de  ABC  SOFT  d 
"RENA1SSANCE”  í  O  lelo),  este  es  un  fuego  (en  d  8 
la  máquina  tarda  de  10  a  15  minutos  en  (irarl:  6 
comandos  de  ayuda  al  jugador  como  marcha  atrás, 
cambio  de  nivel,  modificación  dd  tablero,  etc,  Tam¬ 
bién  tiene  la  posibilidad  de  gra bar/recuperar  parti¬ 
das,  Se  puede  usar  joysuek  o  teclado.  Instrucciones  en 
Español:  y  d  "MLSSJLL  CQMMAND  ’,  que  es  d 
juego  de  las  salas  recreativas  en  d  que  una  base  ha  de 
proteger  sus  unidades  del  ataque  de  unos  rayos  eura- 
terre&treg.  Se  juega  am  joystick  Los  2  juegos  por 
4.0ÜO  ptas.,  por  separado  cada  uno  2,5(Mi  Los  2  jue¬ 
gos  son  originales  (no  son  copias)  Antonio  Mota 
Porta  Zaragoza,  i  U.  Almería.  Teléf  (95 II  21  55  *¡4 
(Ref.  M-I7Ü). 

»  Vendo  accesorios  VIC-20,  superexpander  cassette, 
programas  originales,  bs  2  partes  dd  curso,  guia  de 
referencia joystttík  e  impresora  GP  80,  Teléf.  45(1  15  73 
Vicente  García  Rudilla.  CV  Bravo  Murólo,  21 14Ó1  A 
Madrid  (Ref  M-1 71). 

*  Vendo  V I C-2Q  comprado  en  el  84,  con  d  data  set  te , 
amplia  carnes  de  3  K  y  de  16  K,  joystick,,  6  programas, 
curso  de  Basic  en  cassctie.  libros  y  muchos  programas 
grabados.  Todo  en  perfecto  estado  y  casi  sin  usar  por 
42.000  pías,  Jesús  Marcos  Jaman/  Ripakla.  Teléf.: 
254  10  52  dic  Barcelona.  (Ref.  M-1 72) 

*  Vendo  joystick  para  VIC-20  por  2.5ÜO  pus ,  cinta 
mghlmarepark  por  1. 200  pías.,  carmdge  vic  avenger 
por  3.300  ptas.  y  e!  libro:  "Acceso  rápido  al  VIC  20" 
por  l,2l>0  pus.  También  vendo  v ideo-juegos  Philips 
G-7000  por  10000  ptas.  y  varios  cartuchos  de  juegos 
para  el  mismo,  Llamar  en  horas  de  comida  a  José 
Ramón  de  Diego  Rodríguez  Teléf  <¡987 1  4Í  20  21 
(Re/  5/173) 


CLUBS  ¡ 

•  Club  de  amigos  )  uU/  I  studio  2  Plaza  de  Soiuhrc- 

rcros,  2  Palma  de  Mallorca,  l  eí  2|  31  62,  (Re),  t  í) 

•  Club  de  programación  Alai/  Tds,:  254  480-257  704 
Pamplona,  (Ref.  C-4) 

•  Club  de  Commodore  de  Albacete  femando  Mar-  l 
Eme/ Guerrero  La  Roda.  39  y  D  Albacete.  (Ref  C-5) 

•  Circulo  de  Duren  san  Vagues  Vigo  C  Venezuela. 
48.  En  trecha  n.  Tels. .  (986j  4J0  683/422  519  (Ref.  t  6) 

a  Asociación  Man  «.liega  de  Usuaritts  de  C  BM-64  | 
( A.M.C,  C-64).  C/Blasco  de  Garav,  10,  Albacete 
(Re).  C-I3). 

•  c;i u b  M 1C RO- ESTLAI.  Gran  Via,  682  Pral  ( Em re  j 
Bruch  y  Gerona)  de  Barcelona  (Re).  C  -Í4) 

•  I  n te  re sados  en  la  lo r  mae ió n  de  un  d u b  de  i n L>r ma¬ 
tura  en  Granada  capital  diríjanse  por  correo  a  CV  San 
Jerónimo*  23,  2  E8Ü0I  Cira  nuda  Miguel  V  Puerta 
Carrasco.  (Ref  i -28). 

•  Si  queréis  que  hagamos  un  club  "Vil-2U"  poneros  { 

en  con  lacio  con  Antonio  Recobcr.  Telé!  32  20  46  , 

Málaga.  Se  irata  de  intcrcamblat  programas  Cono-  ' 
cimientos  y  experiencia  sin  que  ñus  cueste  dinero.  Si 
algún  64  quiere  hacer  d  camino  a  nuesiro  lado 
Podemos  intentarlo.  (Ref.  C-29 ). 

6  Desearía  contactar  con  interesados  en  formar  un 
club  de  usuarios  del  C-64  en  Granada  c  intercambiar 
programas  v  experiencias  Aniurúo  Toral  Peinado 
CVruenie  nv  3.  I llora  (Granada)  Tcl  958-46  30  09 
(Re/.  €-30/ 


Commodore  VVoríd  Diciembre  1984/73 


*  Piirü  Jurmaauti  club  nacional  Je  CBM  Ser  1*5  2U00 
y  3000  exclusivamente,  ponerse  en  camuflo  por  cana 
con  AttC mío  González  Pétt-Y  Femando  Aroccfta 
Quintero,  I  1  cié!  22  42  44  380U9  Sama  Cnu  de 
Tenerife  (Ref,  €-31/ 

*  Me  guiaría  contactar  con  alguien  de  Motril  para 
compartir  experiencias  >/o  formar  un  club  de  064  (y 
V1C-2U  si  hace  falta).  \n  tengo  local.  Mí  teléfono 
958-600  314  (Re/.  (  -32), 

*  I  la  naudo  el  club  ‘  finan  &  Chip“  para  usuarios  dd 
C-64  y  Spectmm  16K.  Crearemos  una  revista  propia, 
pero  necesitamos  colaborad  unes,  programas  e  ideas 
Intercambiamos  programas  lisiados  o  en  cinta,  escri¬ 
bir  desde  cualquier  rincón  de  Es parta,  prometo  con¬ 
testar  f  rancisco  keig  López,  C/Marina,  2M,  3U  5\ 
(18023  Barcelona  (Re)  €-33/ 

*  Agradece  Ha  la  dirección  o  teléfono  de  algún  socio 
de  mi  ciudad  o  alrededores,  a  lln  de  ponerme  en 
contacto  con  él  para  ver  la  posibilidad  de  formar  un 
club  o  similar  lose  Esteban  Llusar  Moles  Duoi/. 
2-ly  T  Pío  de  Sagunto  (Valencia),  (Re/.  C-J4) 

*  Urupo  de  usuarios  de  Lommodore  en  Tarragona, 
estamos  intentando  lormar  un  club  lo  más  sólido 
posible,  no  nos  mueve  ningún  ínteres  lucrativo,  y 
estamos  desarrollando  un  sintin  de  actividades, 
encaminadas  a  tener  un  más  amplio  conocimiento  de 
nuestro  ordenador  Al f red  Blasi  TeL:  (977 1  547  307, 
Tarragona  (Re/.  €-35/ 


*  Deseo  contactar  con  niños  as  que  deseen  lormar  un 
club  de  ordenado  es  Commodore  64  y  VK  -2t)  (puede 
ser  oira  marca),  para  intercambiar  experiencias. 
C/Avda  del  No  te  nv'  8  ate  3J  Hospttakt  l  liarte- 
lona».  Manuel  González  Martínez  TeL:  93*240  23  50. 
(Re/  €-36/ 

*  Agradecería  mucho  a  lodo  el  que  pudiera  infor¬ 
ma  i  me  sobre  la  creación  de  un  club  para  VJC-20  en 
Málaga  (Re/,  €-3 7} 

*  Estamos  montando  una  actividad  de  informática  en 
el  Club  Los  Chopos  con  la  idea  de  enseñar  a  chavales 
de  BUP  y  últimos  cursos  de  EGB  a  programar  y  for¬ 
mar  un  grupo  de  amigos  para  intercambiar  progra¬ 
mas  y  experiencias,  sin  ningún  fin  lucrativo.  Javier 
Hugiict.  C/ Antonio  Mcnchuca,  19  Triéí  4693461 
Negun  (Re/.  €-38/ 

■  Me  gustaría  contactar  con  Interesados  en  la  conícc- 
cíón  de  programas  de  astronomía.  Ordenador  VIC- 
20  Interesados,  escribir  a:  Apartado  2309  15081]  La 
Cor  una  (Re/  €*39/ 

N.R.:  Rara  lOrttirtUür  saliendo  en  et  futuro,  envi  unos 
Dire  cción. 

*  Los  interesados  en  ptogtainas  (VtC-20)  iclacioiu 
dos  con  la  frecuencia  de  27  Mh¿  escriban  a  Apartado 
Postal  471  14080  Córdoba  (Re/.  C-40J. 

*  Estamos  formando  un  Club  de  Usuarios  en  el  ecn 
tro  de  Madrid.  Cualquier  interesado  que  se  ponga  en 
contactaron  nosotros  en  el  telefono  2766694,  Luncs- 
Miércio  les -Viernes  de  18,00  a  20,00  h  Dirigiéndose  ¿i 


Rafael  (FR4XD).  l  Dejar  tdétonu  en  d  contestado  r), 

(Re/.  141/ 

\R  Rara  continuar  sútíemío  en  ei  futuro,  envíanos 
Dirección. 

■  Me  gustaría  contactar  con  usuarios  de  la  zona  de 
Matar  ó.  Dirigirse  a;  Marcel  Plamigumá  Pge  Mit  i 
BtirrelL  1- L  f  Mataró  (Barcelona  I  leí  (93)7985127 

(Re/  042/ 

*  Desearía  información  sobre  club*  en  existencia  y 
gente  que  quiera  formar  uno  o  intercambiar  progra¬ 
mas  y  experiencias  preferente  mente  de  Pontevedra, 
(Só  la  mente  usuarios  de  Commodore  64)  (artos 
Parada  Gando*.  C/ Padre  Fernando  Olmedo,  4-4 y  B. 
36002  Pontevedra,  i  elef  (986185  69  21  (Re/.  €-43). 


BOLSA 
DE  TRABAJO 


*  Profesor  de  ingles,  trabajando  en  un  instituto  > 
licenciado  en  Historia,  daría  clases  particulares  de 
ingles.  Dirigirse  a:  Michad  Bruggcman  Tdét  (91) 
2271143  (Rej.  BD-1/ 


“Commodore  World” 

aporte  de  venderse  generalmente  en  kioscos,  se  encuentra  asimismo 
a  la  venta  en  las  siguientes  distribuciones  de  Commodore  y  librerías. 


burcos 

*  E.l.S.A.  c/  Madrid.  4.  Teléfono:  (447)  10  46  24. 

CACCWES 

*  Informática  Vivas  WJiite.  San  Pedro,  8. 

Teléfono:  (927)  24  40  96. 

CADIZ 

*  V  ideo  C  omputer.  Comandante  Gómez 
Ortega,  59.  Algeciras,  T*l*i  (956)  65  39  02 

CANARIAS 

*  Reiax.  Rambla  de  Pulido,  85.  Santa  Cruz  de 
Tenerife,  Teléfono:  (922}  28  37  05, 

CIUDAD  REAL 

*  Electrónica  Turril  lo.  c/  Pedrera  Baja,  7 
Teléfono:  (926)  22  38  67, 

CORUÑA,  LA 

*  Cetrontc,  S,L.  e/  Palomar,  22  Bajo. 
Teléfono:  (981)  27  26  54 

*  Gest  y  Computer.  Avda.  Romero  Donaltu,  25. 
TeL:  (981 )  59  87  54.  Santiago  de  Com póstela. 

*  Photo  Copy.  c/  leresa  Herrera,  9 
Teléfono:  (981)  21  34  21. 

*  Saniosa,  S.  L,  San  Luis,  46  al  50. 

Teléfono:  <981}  23  07  49 

GERONA 

*  Digit  Informática,  e/  Avda.  11  Setembre,  7. 
Olol.  Teléfono;  (972)  26  94  GE. 

*  Mieroehip.  c/Aigoa,  3.  Olot,  TeL:  26  36  63 

■  Regiscompte  S.A.  c/  Emilio  Grahil,  17  Bis. 

Teléfono:  (972}  21  99  88. 

HUELVA 

*  Compuierlog,  S.A.  c/  Tendaleras,  15 
leléfono:  (955}  25  81  99. 

IB  IZA 

*  Kelson,  Plaza  España,  S/N.  San  Antonio 
Abad,  leléfono:  (971)  34  13  09. 


•  Librería  (jarcia  Peña,  c/  Cava  miles,  52, 

•  Micromundo,  SA.  El  Zoco,  Majada  honda. 
Teléfono:  (91)  638  13  89. 

•  Micros  Carden,  c/  Francisco  Silvela,  19 
Teléfono:  (91)  401  07  27. 

•  País  de  los  Microordenadores.  Bravo 
Muriilo,  18,  J  éis,:  (91)  446  33  17-446  37  12. 

MALAGA 

•  Informática  .Martínez  SA,  c/  Cristo  de  La 
Epidemia.  90,  Teléfono:  (952)  26  37  68. 

MURCIA 

•  Procüinsa.  Ronda  Norte,  27. 

Teléfono:  (968}  23  94  49. 


PAMPLONA 

»  Microordenadores  Ramar.  c/  Navarro 
Vil  [oslada,  7,  Teléfono:  (948)  23  72  89 

SALAMANCA 

•  InftHJest  c/  Ronda  del  Corpus,  2- 1*  centro. 
Teléfono:  (923)  21  59  93. 


ALICANTE 

*  Casa  Wagner.  c/  Juan  (  arlos  l,  37,  Elda. 
Teléfono:  (965)  39  03  96. 

*  Ferretería  Progreso,  c/  General  Jordana,  28. 
Elda.  Teléfono:  (965)  38  1 1  45. 

BADAJOZ 

■  Control  Sistemas,  Aída,  Santa  Marina,  25A, 
Teléfono:  (924)  25  88  1)0, 

BARCELONA 

*  Comercial  CUpera.  c/  Mariano  Maspons,  4. 
Granollen.  Teléfono  (93)  870  4  5  42. 

*  Computer  Service.  Atda.  Abad  Marcel,  325, 
1  arrasa,  leléfono:  (93)  788  63  77. 

*  Computerhard  c/s.  Jaime,  48.  Granullers. 
Teléfono:  (93)  87D  09  19. 

*  Gadesa.  Les  Valls,  12-14,  Sabaddí. 
Teléfono:  (93)  725  25  43. 

*  Librería  Emilia  Pérez  Kadua.  c/  Mayor,  35. 
(  astillar  del  Vallé*.  Teléfono:  (93)  714  89  51. 

*  Librería  Michel.  Ronda  (¿ui nardo,  1.  Sardanola. 

*  Mazarí.  c/  Jaime  1,  145.  MolJct. 

Teléfono:  (93)  593  75  01. 

*  Novo  Digit,  c/  Aragón,  472,  TeL  246  27  75. 

*  Radio  Watt,  Paseo  de  Gracia,  130. 

Teléfono:  (93)  237  11  82. 

*  Son  i  móvil,  c/  Alcalde  Armengou,  53. 
Manresa.  Teléfono:  (93)  873  78  17. 

*  Tronic.  Bigay,  H-13.  TeL:  (93)  212  85  96 

BILBAO 

*  Bilbomicro  SA.  c/  Aurelia  no  Valle,  7. 
48O10  Bilbao.  Teléfono:  (94)  443  43  51 


SAN  SEBASTIAN 

•  Uonmicro,  SA.  c/  Arrásate,  6. 
Teléfono:  (943)  42  35  10 


SANTANDER 

*  Librería  Hernández.  San  Francisco, 
Teléfono:  (942)  22  53  30, 


SEVILLA 

*  Papelería  Mora,  c/  Sania  Cruz,  5,  Ley  a 
Teléfono:  (954)  83  14  80. 


TARRAGONA 

•  Comercial  Informática  de  Tarragona  SA. 
c/  Gasómetro,  20.  Teléfono:  (977)  23  08  53, 

•  OHcomplet.  Plaza  de  la  Cinta,  6.  furiosa. 
Teléfono:  (977)  44  14  50. 

VALLAOOLID 

•  Chips  +  Tips,  S.A,  c/  Juan  de  Juni,  3, 
Teléfono:  (983)  33  40  00. 

•  Kent  Electronic,  c/  Duque  de  la  Victoria,  13. 
Tienda,  15.  Teléfono  (983)  47  58  07 


LEON 

•  Logdata,  c/ Burgo  Nuevo,  4 
Teléfono:  (987)  20  42  89 

*  Micro Hierzn.  ¿J  Carlos  I,  2. 

Teléfono:  1987)  41  74  21.  |Ponferrada) 


Electrónica  Lugo,  c/  Barquillo,  40, 
Key  Informática,  e /  Embajadores,  90 
Teléfono:  (91)  227  09  8Ü. 


ZARAGOZA 

•  ADA  Computer,  Centro  Independencia. 

Pu  Independencia,  24-26.  TeL:  (976)  29  85  62 
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PARA  LLEGAR  MAS  LEJOS... 

^RETRR V/GEZT 


MKII 


/MSX 


MICROSOFT  BASIC^A  FORTRAN  80  *  Microsoft  Logo  *  COLCCO  cartuchos 
CP/M  *  Coliol  80  *  MACROENSAMBLADOR  Z80  *  Ensamblador  CP/M 


*  MSX,  Es  el  sistema  escogido  por  16  labricantes  japoneses  cíe  onJenadares  (SONY,  PANASONIC,  PíONER.  SANYO. 
SPECTR  AVíDEO.  etc,|  siendo  sompatíbles  todos  ios  programas  creados  por  cada  uno  de  los  fabricantes. 


CARACTERISTICAS  GENERALES 

SPECTRAVIDEO 

323 

SPECTRAVIDEO 

316 

APPLE  II  e 

COMMÜOÜRE 

64 

ATARI 

600  nL 

MODELO  B 

DRAGON 

32 

GRIC 

ATMOS 

PROCESADOR 

280  A 

280  A 

6502 

6510 

6502 

6502 

6809  E 

6502 

RELOJ  EN  MHz 

4  MHz 

4  MHz 

1  MHz 

1  MHz 

1,8  MHz 

2  MHz 

1  MHz 

1  MHz 

MEMORIA  STANDARD  EN  RAM . 

80  K 

32  X 

64  K 

64  K 

16  K 

32  K 

32  K 

40  K 

AMPLIADLE  HASTA . 

144  K 

144  K 

- 

- 

64  K 

- 

64  K 

64  K 

MEMORIA  STANDARD  EN  ROM . 

32  K 

32  K 

16  K 

20  K 

24  K 

16  K 

16  K 

16  K 

AMPLIARLE  HASTA 

96  K 

96  K 

- 

- 

- 

- 

- 

- 

MICROSOFT  BASIC  EXTENDIDO . 

SI 

SI 

- 

- 

- 

NO 

SI 

SI 

NUMERO  DE  TECLAS . 

07 

51 

62 

66 

57 

73 

53 

57 

TECLADO  CON  GRAFICOS  PREDEFINIDOS  . 

SI 

SI 

- 

SI 

SI 

SI 

NO 

NO 

TECLAS  DE  FUNCION  PROGRAMADLES 

10 

10 

- 

8 

4 

ID 

NO 

NO 

MANDO  JQTST1CK  INCORPORADO  .  . 

NO 

SI 

- 

NO 

NO 

NO 

NO 

NO 

COLORES 

16 

16 

16 

16 

16 

16 

9 

a 

SPfflTES . 

32 

32 

- 

e 

8 

- 

7 

- 

RESOLUCION  (Punios  de  paítala) . 

256» 192 

256»  1&2 

280*  192 

320*200 

320*  192 

256*640 

256*192 

240*200 

TEXTO  EN  PANTALLA . 

40*24 

40 » 24 

40*24 

40*25 

40*24 

40*32 

32*16 

40*28 

CANALES  OE  SONIDO . 

3 

3 

1 

3 

4 

1 

3 

3 

OCTAVAS  POR  CANAL . . . 

6 

8 

4 

9 

? 

3 

5 

a 

A.D.5.R.  ENVOLVENTE . 

SI 

SI 

NO 

SI 

NO 

SI 

NO 

SI 

CAPACIDAD  UNIDAD  OE  DISCO .  .  , 

256  % 

256  K 

140  K 

170  K 

127  K 

100  K 

? 

7 

CENTRONICS . ..1 . 

Si  lopcimalj 

SI  iDpCIDRail 

SI  lüpcionah 

- 

SI  lapciGtiall 

SI  [opcional! 

SI 

SI 

RS232  . 

Si  (opcional) 

Si  1  opcional! 

SI  lapcion-atl 

- 

SI  i  ü  peí  anal  l 

Si  !  opcional! 

- 

- 

90  COLUMNAS . 

SI  (opcional) 

SI  (opcional} 

SI  1  opcional! 

SI  (opcional) 

Si  [opcional! 

- 

- 

~ 

PRECIO  P.V.P, 

76.000 

49.900 

166.618 

79  900 

58.500 

1  40,000 

67,800 

59,500" 

© 


MSX  V  MICROSOFT  son  marcas  registradas 
por  MICROSOFT  CORPORATION 
CPM  es  una  marca  registrada  por  DIGITAL 
RESEARCH  INC 

COLECO  VISION  es  una  marca  registrada  por 
COLECO  INDUSTRIES  INC 


¡ndEsnnmp 

HARDWARE  I 

DISTRIBUIDOR  OFICIAL  DE  SPECTRAVIDÉO 
INTERNATIONAL  LID 

PASEO  DE  LA  CASTELLANA,  179  MADRID- 1 6 
TELEFONO  £91  j  279  31  05 


DELEGACION  EN  CATALUÑA  ACE.  S.A 
Tarragona.  100  -  Barcelona-1 5 
Teléfono  (93}  325  10  58 


YA  DISPONIBLE  EN 


Y  EN  TODAS  LAS 
TIENDAS  ESPECIALIZADAS 


COMMODORE 16 
LA  EMOCION  DE  EMPEZAR 


Iniciarse  en  el  mundo  de  los 
ordenadores  personales  con  un 
COMMODORE  16  es  sumar,  a  la  emoción 
de  empezar,  la  emoción  del  futuro. 

Porque  es  un  ordenador  de 
fácil  manejo  y  programación,  pero  con 
prestaciones  que  sólo  se  encuentran  en 
ordenadores  de  costo  mucho  más  elevado. 

Porque  es  un  ordenador 
pequeño,  pero  con  la  mayor  cantidad  de 


software  y  periféricos,  que  multiplican  sus  Porque  es  el  ordenador  ideal 

posibilidades  futuras.  para  empezar  y  perfecto  para  seguir. 


|  PRINCIPALES  CA 

-  16  K. 

-  COMANDOS  DE  AL  TO  NIVEL 

PARA  GESTION  DE  COLOR,  SONIDO 

Y  GRAFICOS  DE  ALTA  RESOLUCION. 

-  TECLADO  PROFESIONAL. 

-  40  COLUMNAS  x  2$  LINEAS, 

-  121  COLORES. 

-  GRAFICOS  EN  ALTA  RESOLUCION. 

-  2  GENERADORES  DE  TONO. 

-  AMPLIA  GAMA  DE  PERIFERICOS. 

commodore  16 

LA  EMOCION  DEL  FUTURO 


commodore 

COMPUTER 


MICROELECTRONICA  Y  CONTROL 
d  Valencia,  49-53.  08015  Barcelona,  d  Princesa,  47,  3. 0  G.  28008  Madrid. 
UNICO  REPRESENTANTE  DE  COMMODORE  EN  ESPAÑA 


